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ABSTRACT 


The  U.S.  Army  is  working  to  develop  fixture  generations  of  constructive  combat 
simulation  systems  that  can  take  advantage  of  the  wide  availability  of  high-end  Personnel 
Computers  (PC).  As  part  of  this  research  and  development  process,  the  U.S.  Army 
looked  to  re-engineer  a  verified  and  validated  legacy  combat  simulation  into  a  version 
that  can  operate  on  a  PC  using  the  industry  supported  and  widely  used  Windows  NT 
operating  system.  Janus,  with  its  availability,  familiarity,  and  applicability,  will  serve  as 
that  re-engineering  test  case.  The  re-engineered  version  of  Janus  will  maintain  its 
existing  functionality,  and  include  additional  functionality  to  support  Operations  Other 
Than  War  (OOTW)  and  expanded  Combat  Service  Support  (CSS).  In  its  final  form,  the 
results  of  this  re-engineering  project  will  produce  the  Warrior  Simulation.  Warrior  will 
serve  as  a  basis  for  future  simulations. 

This  thesis  describes  the  re-engineering  activities  required  to  reconstruct  the  Janus 
architecture  from  a  legacy  software  simulation  system  into  one  possessing  an  object- 
oriented  architecture  that  complies  with  Department  of  Defense’s  (DoD)  High  Level 
Architecture  (HLA)  standard. 

This  research  indicates  that  procedural  legacy  simulations  can  be  converted  into 
an  objected-oriented  architecture  that  complies  with  the  HLA  standards. 


DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may 
not  have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made, 
within  the  time  available,  to  ensure  that  the  programs  are  free  of  computational  and  logic 
errors,  they  cannot  be  considered  validated.  Any  application  of  these  programs  without 
additional  verification  is  at  risk  of  the  user. 
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L  INTRODUCTION 


A.  BACKGROUND 

Up  until  just  a  few  years  ago,  software  development  was  conducted  under  the  auspices 
that  a  system1  would  be  developed  and  maintained  for  some  period  of  time  and  then  eventually 
replaced  by  a  totally  new  future  system.  However  as  budget  purse  strings  tighten,  the  increased 
dependence  on  commercial  technology  and  the  use  of  Commercial-off-the-shelf  (COTS) 
products,  coupled  with  the  wide  spread  use  of  legacy  systems,  it  is  becoming  increasingly  more 
important  and  highly  economical  for  concerned  agencies  to  explore  re-engineering 
opportunities  and  strategies.  Legacy  systems  like  Janus  embody  substantial  institutional 
knowledge  which  include  both  basic  and  refmed  requirements,  design  decisions,  and 
invaluable  advice  and  suggestions  from  military  leaders  that  has  been  implemented  over  the 
years.  To  effectively  use  these  assets,  it  is  important  to  employ  a  systematic  strategy  for 
continued  evolution  of  the  current  system  to  meet  the  ever-changing  mission,  technology  and 
user  needs.  However,  knowledge  is  difficult  to  recover  after  many  years  of  operation, 
evolution,  and  personnel  change.  Janus  software  was  originally  written  some  twenty  years  ago 
using,  what  many  now  view  as,  an  archaic  and  ad-hoc  methodology.  In  addition,  Janus  has 
experienced  a  number  of  updates  and  maintenance  revisions  over  recent  years.  Major  changes 
occurred  during  the  transition  to  version  4.0  with  the  integration  of  new  terrain  features  such  as 
roads,  buildings,  vegetation,  water  and  other  man-made  features.  The  end  result  is  a  legacy 
system  that  lacks  the  ability  to  evolve  to  meet  the  ever-changing  demands  needed  to  continue 

1  The  systems  discussed  in  the  thesis  are  software  intensive:  software  constitutes  a  significant  portion  of  the  application.  Unless 
otherwise  noted,  the  term  “system”  implies  “software  system”. 
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as  a  valuable  military  training  and  analysis  tool. 

Re-engineering  has  frequently  been  proven  to  be  more  cost  effective  than  new 
development  and  is  also  known  to  better  promote  continuous  software  evolution.  It  is 
essentially  building  a  new  system  using  the  existing  system  as  the  basis  for  requirements  or 
design.  Software  re-engineering  can  defined  as  the  systematic  transformation  of  an  existing 
system  into  a  new  form  to  realize  quality  improvements  in  operation,  system  capability, 
functionality,  performance,  or  evolvability  at  a  lower  cost,  schedule,  or  risk  to  the  customer 
[Ref.  1].  Such  improvements  often  take  the  form  of  increased  or  enhanced  functionality,  better 
maintainability,  configurability,  reusability,  and/or  other  software  engineering  goals.  This 
process  involves  recovering  existing  software  artifacts  from  the  system  and  then  re-organizing 
them  as  a  basis  for  future  evolution  of  the  system. 

When  re-engineering  a  legacy  system,  the  use  of  object-oriented  techniques  introduces 
certain  complexities  into  the  software  analysis  process.  Primarily  we  find,  as  was  the  case  with 
Janus,  that  the  software  system  was  not  originally  designed  and  implemented  using  an  object- 
oriented  approach.  Thus,  the  products  of  reverse  engineering,  such  as  requirements  or  design 
specifications,  will  probably  reflect  a  functionally  based  approach.  As  a  result,  some  form  of 
“transformation”  of  analysis  and  design  is  necessary  in  order  to  use  the  specifications. 

Once  a  realizable  specification  is  obtained,  it  is  often  very  difficult  to  quickly  determine 
if  the  specification  is  in  fact  a  true  representation  of  the  desired  requirements.  Prototyping 
provides  a  means  to  validate  system  requirements  while  simultaneously  allowing  a  prospective 
user  with  the  opportunity  to  get  a  brief  feel  for  aspects  of  the  proposed  system.  It  is  a  well- 
established  approach  that  can  be  highly  effective  in  increasing  software  quality  [Ref.  2].  Used 
in  conjunction  with  conducting  a  major  re-engineering  effort,  prototyping  can  be  extremely 
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useful  in  assisting  in  many  areas  of  software  modification,  validation,  risk  reduction,  and  the 
refinement  of  user  requirements. 

B.  MOTIVATION 

In  September  1996,  USD(A&T)  signed  a  memorandum  promulgating  the  High  Level 
Architecture  (HLA)  as  the  architecture  of  choice  for  Department  of  Defense  (DoD) 
simulations.  DoD  additionally  stated  that  all  agencies  shall  cease  further  development  or 
modification  of  all  simulations  which  have  not  achieved,  or  are  not  in  the  process  of  achieving, 
HLA-compliance  by  the  first  day  of  FY  1999,  and  shall  retire  any  non-compliant  simulations 
by  the  first  day  of  FY  2001  [Ref.  3].  In  April  1998,  USD(A&T)  reaffirmed  that  policy  stated 
in  the  September  1996  memorandum.  To  recap  the  full  benefits  of  simulation  interoperability 
and  reuse  in  the  near-term,  it  is  important  to  quickly  transition  our  legacy  to  the  HLA  [Ref.  4]. 
In  support  of  these  policies  and  a  vision  to  improve  solider  training  opportunities,  the  U.S. 
Army  Training  and  Doctrine  Command  (TRADOC)  Analysis  Center  in  Monterey,  California, 
(TRAC-MTRY)  began  efforts  to  research  and  develop  an  HLA  compliant,  personal  computer 
(PC)-based,  high-resolution,  multi-sided,  constructive  combat  simulation.  The  simulation 
selected  for  development  was  Janus.  The  overriding  goal  of  the  project  was  a  prototyped 
HLA-compliant  Janus,  coded  in  C++,  operating  on  a  PC  platform  using  the  Windows  NT 
(WinNT)  operating  system  [Ref.  5].  Large  constructive  software  simulation  systems  like  Janus 
typically  reside  on  bulky  hardware  platforms,  usually  running  a  UNIX-based  operating  system. 
However,  the  significantly  increased  computing  power  of  today’s  PCs,  combined  with  their 
low  cost,  availability,  and  wide  familiarity  make  them  a  very  attractive  and  logical  choice  for 
future  simulation  systems. 
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A  major  goal  in  the  ongoing  research  effort  in  the  Software  Engineering  Laboratory  at 
the  Naval  Postgraduate  School  is  the  construction  of  a  highly  automated  software  engineering 
environment  to  support  computer-aided  design,  development,  and  reuse  of  large  software 
systems.  A  number  of  models  and  tools  have  been  developed  as  a  result  of  the  research,  many 
of  which  largely  support  the  task  of  re-engineering  large  software  systems  like  Janus.  TRAC- 
MTRY  tasked  the  Software  Engineering  Laboratory  at  the  Naval  Postgraduate  School  to  assist 
in  its  effort  to  re-engineer  Janus  into  an  object-oriented  system.  This  thesis  describes  our 
efforts  to  modernize  Janus  into  more  maintainable,  evolvable  system,  and  one  that  exploits  the 
recent  speed,  memory,  and  power  enhancements  of  today’s  modem  PCs. 

C.  OBJECTIVES 

The  primary  objectives  of  our  work  were  twofold;  1)  propose  a  methodology  to  re¬ 
engineer  a  legacy  software  system,  and  2)  produce  an  executable  prototype  of  the  design  using 
the  Computer  Aided  Prototyping  System  (CAPS)  and  its  supporting  specification  language,  the 
Prototyping  System  Description  Language  (PSDLj.  The  work  involved  moving  Janus,  a 
legacy  combat  simulation  system,  from  an  HP -UNIX  based  platform,  written  mainly  in  the 
procedurally  structured  FORTRAN  77  programming  language,  to  an  object-oriented 
programming  environment  running  on  a  PC  platform.  It  was  additionally  a  goal  of  the 
developers  to  rewrite  Janus  in  an  object-oriented  programming  language,  preferably  C++. 
However,  prior  to  rewriting  Janus  code,  the  developers  needed  a  completed  software 
architecture  of  the  existing  Janus  code  functionality.  The  decision  to  develop  an  object- 
oriented  architectural  design  facilitated  rewriting  Janus  in  C++  and  integration  of  a  Graphical 
User  Interface  (GUI).  As  any  experienced  software  engineer  will  tell  you,  a  well-designed 
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architecture  is  the  first  step  to  successfully  re-engineering  a  software  system  because  it  acts  as  a 
blueprint  when  designing  the  desired  class  structures,  objects,  attributes,  interactions,  and 
needed  parameters. 

©  ' 

D.  THESIS  ORGANIZATION 

Chapter  II  provides  an  overview  of  the  Janus  simulation  system,  including  background 
information  on  the  system’s  creation  and  its  development.  It  provides  a  brief  description  of  the 
model  along  with  an  analysis  of  the  system  to  include  a  discussion  of  the  system’s  strengths 
and  weaknesses. 

Chapter  III  begins  with  a  brief  description  of  the  re-engineering  process  and  provides  a 
detailed  account  into  the  underlying  steps  of  System  Understanding,  Reverse  Engineering, 
Application  Restructuring,  and  Forward  Engineering.  The  next  section.  Building  the  Object 
Model,  discusses  the  selected  architecture  and  describes  how  the  model  was  actually 
constructed  using  simulation  objects  and  the  event  handlers.  The  chapter  concludes  with  a 
brief  analysis  of  the  process. 

Chapter  IV  describes  the  procedures  used  in  constructing  the  executable  prototype.  It 
outlines  the  purpose  for  the  prototype,  describes  how  it  was  done  and  then  provides  some 
unique  insight  of  lessons  learned  during  the  process. 

Chapter  V  summaries  the  key  elements  of  our  re-engineering  effort  and  provides  some 
insightful  recommendations  for  future  work  and  research  in  the  area  of  legacy  system  re¬ 
engineering. 
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II.  JANUS  OVERVIEW 


A.  BACKGROUND 

The  Army  used  constructive  combat  simulation  models  for  training  since  the  late 
1970s.  One  of  the  earliest  such  models,  the  McClintic  Theater  Model,  was  developed  by 
an  Army  War  College  employee  by  the  name  of  Fred  McClintic.  The  McClintic  Theater 
Model,  which  quickly  became  known  simply  as  “MTM”,  was  a  prototype  for  “theater 
style”  constructive  simulations  used  for  training,  typically  at  Division  level  or  higher.  [Ref. 
6] 

Janus  began  development  as  a  contemporary  of  MTM,  but  was  intended  to  meet 
utterly  different  requirements.  Responding  to  a  Department  of  Energy  requirement,  Janus 
was  developed  as  a  nuclear  effects  modeling  tool  by  Lawrence  Livermore  National 
Laboratory  (LLNL).  Fielded  in  1978,  the  Janus  simulation  was  named  after  the  two-faced 
Roman  god  of  portals  who  guarded  the  gates  of  Rome  by  looking  two  ways  at  the  same 
time.  Later,  the  U.S.  Army  Training  and  Doctrine  Command  (TRADOC)  Analysis  Center, 
White  Sands  Missile  Range,  New  Mexico  (TRAC-WSMR)  acquired  the  prototype  from 
LLNL  as  result  of  the  Janus  Acquisition  and  Development  Project.  DoD’s  interest  in  Janus 
prompted  the  development  of  several  parallel  versions  of  the  model  during  the  late  1980s 
and  early  1990s.  The  original  version,  developed  at  LLNL,  is  known  as  Janus(L)  while  the 
version  adopted  and  successfully  modified  by  TRAC-WSMR  to  meet  Army  combat 
development  needs  is  known  as  Janus(T).  Both  of  these  models  achieved  great  success  and 
popularity  amongst  its  users,  which  promulgated  the  Army  to  task  TRAC-WSMR  to 
develop  a  multipurpose  system  from  the  best  of  Janus(L)  and  Janus(T).  The  simulation, 
originally  referred  to  as  Janus  (A),  is  now  simply  referred  to  as  Janus.  Janus  has  gained 
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immense  popularity  over  the  course  of  its  lifetime  and  is  currently  in  use  by  several  allied 
nations  abroad  to  include  Germany,  France,  Canada,  and  Australia.  Here  in  the  United 
States,  Janus  is  used  not  only  by  the  U.S.  Army,  but  also  by  the  U.S.  Marine  Corps  and  the 
Rand  Corporation.  The  most  recent  version  of  Janus,  version  6.88,  is  the  analytical  model 
which  is  managed  and  maintained  by  TRAC-WSMR.  There  is  also  training  version  of 
Janus,  version  7.0,  currently  managed  by  the  Simulation,  Training  and  Instrumentation 
Command  (STRICOM)  located  in  Orlando,  Florida.  [Ref.  7] 

B.  DESCRIPTION 

Janus  is  a  high  resolution,  software-based,  constructive  combat  simulation  model 
used  by  Army  leaders  at  brigade  through  platoon-sized  units  as  an  effective  tool  for  training 
staffs  and  analyzing  combat  tactics.  The  model  simulates  battle  between  two  to  six 
opposing  forces,  depicting  actions  from  individual  systems  and  company-sized  units,  on  up 
through  brigade  and  regimental-sized  units.  Each  element  is  viewed  on  the  Janus  screen  as 
an  icon.  The  icon  may  represent  one  or  more  pieces  of  equipment.  For  example,  one  icon 
may  represent  one  tank,  or  it  may  represent  a  platoon  of  tanks. 

Janus  is  an  interactive,  closed,  stochastic,  ground  combat  simulation  that  features 
precise  color  graphics.  It  is  “interactive”  in  that  command  and  control  functions,  entered 
by  military  analysts,  determine  what  actions  take  place  in  high  tempo  situations  during 
simulated  combat.  “Closed”  in  that  the  disposition  of  opposing  forces  is  largely  unknown 
to  the  players  in  control  of  the  other  force.  It  is  “stochastic”  in  the  way  the  system 
determines  the  results  of  actions  like  direct  fire  engagements,  according  to  the  laws  of 
probability  and  chance.  The  term  ground  combat  implies  that  the  principal  focus  is  ground 
maneuver  and  artillery  units.  However,  Janus  also  models  many  other  characteristics  such 
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as  weather  and  its  effects,  day  and  night  visibility,  engineer  support,  minefield  employment 
and  breaching,  rotary  and  fixed  wing  aircraft,  resupply,  and  a  highly  robust  and  realistic 
chemical  environment.  [Ref.  8] 

The  Janus  system  was  originally  designed  to  run  on  the  Digital  Equipment 
Corporation  VAX  suite  of  computers  running  the  Virtual  Memory  System  (VMS) 
operating  system.  The  current  “open  systems”  version  runs  on  Hewlett-Packard 
workstations  under  HP-UX  and  supports  both  Tektronix  and  X-window  workstations.  Our 
work  was  solely  concerned  with  the  HP-UX  version  using  X-windows  workstations.  The 
graphics  environment,  controlled  by  FORTRAN  subroutines,  send  the  appropriate  graphics 
messages  through  the  RTX  X-window  driver  program  to  an  X-window  workstation.  These 
subroutines  are  included  in  the  Janus  executables.  [Ref.  8] 

C.  ANALYSIS 

Initially  written  in  1978,  the  model  consists  of  sixteen  executable  programs  written 
in  FORTRAN  77,  with  one  additional  subroutine  written  in  the  C  programming  language. 
FORTRAN  77  and  C  are  procedure-oriented  languages;  that  is,  they  are  defined  in  a  way 
that  closely  models  the  functions  to  be  automated  rather  than  the  computer  on  which  they 
operate.  Janus  code  development  occurred  over  a  number  of  years,  involving  many 
different  programmers,  using  several  operating  systems  and  various  FORTRAN  77  and  C 
language  compilers.  In  concert  with  the  style  of  programming  used  at  that  time,  its  data 
representation,  instruction  format,  pointer  usage,  and  control  instructions  are  highly 
characteristic  of  the  FORTRAN  77  and  C  language  programming  styles.  Each  program  is 
made  up  from  a  number  of  subroutines  and  utility  functions  that  were  compiled  separately 
and  then  linked  into  system  libraries.  The  executable  code  was  then  generated  from  those 
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system  libraries.  Several  programs  share  common  subroutines. 


1.  Strengths 

As  with  all  legacy  systems,  Janus  has  evolved  over  a  number  of  years  and  as  such, 
embodies  substantial  organizational  knowledge.  Being  referred  to  as  a  legacy  system  in 
itself  implies  a  system  that  contains  many  properties  worth  preserving.  Janus  has  been 
deployed  for  over  twenty  years  and  has  undergone  the  scrutiny  of  real  users  with  respect  to 
its  functionality  meeting  their  real  needs.  More  specifically,  the  Janus  simulation  system 
uses  several  very  unique  algorithms  that  have  been  very  carefully  constructed  and  refined 
over  the  life  of  the  system.  These  algorithms  are  used  to  simulate  very  highly  complicated 
state  environments  to  include  weather  and  temperature  effects,  chemical  reactions,  cloud 
movements,  direct  and  indirect  fire  events,  and  probabilities  for  line-of-sight,  target 
identification,  recognition,  and  acquisition. 

In  addition  to  the  extraordinary  algorithms  used  in  Janus,  the  simulation  maintains  a 
huge  database,  which  describes  weapon  systems  extensively  and  in  detail.  Individual 
fighting  systems  have  distinct  properties  such  as  dimensions,  weight,  carrying  capacity, 
speed,  weapons  and  weapons  capabilities  like  range,  type  of  ordinance  and  ammunition 
basic  load.  [Ref.  9] 

2.  Weaknesses 

Many  of  the  Janus  system  variables  and  parameters  used  in  the  code  are  passed 
between  the  various  programs  explicitly  or  via  the  use  of  global  data  sets,  often  called 
FORTRAN  common  blocks.  This  form  of  programming  uses  a  “structured”  design 
strategy  and  may  be  considered  highly  functionally  oriented.  Function-oriented  design  is 
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characterized  by  decomposing  a  system  into  a  set  of  interacting  functions  that  all  share  a 
common  centralized  system  state.  Algorithm  details  and  parameter  manipulations  are  often 
hidden  in  this  style  of  design  whereas  the  system  state  information  can  be  viewed  and 
shared  by  all.  This  sharing  of  system  state  information  can  create  serious  problems  since  a 
function  can  change  the  system  state  in  a  way  that  is  inconsistent  with  the  expectations  of  a 
subsequent  function.  Furthermore,  changes  to  a  function  and  the  manner  in  which  that 
function  uses  the  system  state  information  may  also  create  many  unanticipated  changes  in 
the  behavior  of  other  functions. 

As  previously  mentioned  above,  the  Janus  simulation  system  was  originally 
designed  using  a  function-oriented  approach  to  software  development.  In  this  approach  the 
design  is  commonly  decomposed  into  a  set  of  interacting  units  where  each  unit  has  a 
clearly  defined  function.  Design  components  in  this  approach  are  normally  highly  cohesive 
around  functions  that  operate  on  the  global  data  sets,  which  make  modifications  and 
upgrades  very  difficult  and  time  consuming.  For  instance,  the  Janus  database  contains  a 
number  of  weapon  systems  to  include  tanks,  helicopters  and  many  other  combat  weapon 
systems.  Adding  a  new  tank  with  characteristics  dissimilar  from  those  of  other  tanks  in  the 
current  database  would  require  an  immense  amount  of  work  and  the  programmer  would 
have  to  make  modifications  in  many  different  sections  of  the  software.  Changing  the 
implementation  of  a  weapon  system  or  adding  a  new  service,  in  almost  any  scenario,  would 
require  the  programmer  to  modify  numerous  sections  of  the  software.  Furthermore,  many 
of  the  newly  modified  sections  would  seem  to  many,  to  be  totally  unrelated  to  the 
originally  desired  implementation  change  or  service  addition. 
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Finally,  although  FORTRAN  is  probably  the  language  best  suited  for  mathematical 
and  scientific  programming,  it  possesses  limited  program  structuring  facilities  and  has  very 
limited  support  for  data  structuring.  Thus,  one  can  easily  see  that  the  current  version  of 
Janus  is  not  easily  modified  and  maintainability  is  often  very  difficult  and  time  consuming. 
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III.  METHODOLOGY 


A.  THE  RE-ENGINEERING  PROCESS 

Software  re-engineering  combines  forward  and  reverse  engineering  techniques  to 
make  a  system  that  is  more  maintainable  and  more  evolvable.  Figure  1  illustrates  this 
process.  Software  re-engineering  may  be  defined  as  any  activity  that  improves  one’s 
understanding  of  a  software  system  and/or  improves  the  software  itself  [Ref.  10].  This 
definition  partitions  software  re-engineering  into  two  components:  software 
understanding  and  evolution.  The  first  component,  software  understanding,  involves 
those  activities  that  support  program  comprehension,  such  as  measurement,  browsing, 
system  understanding,  and  reverse  engineering.  The  second  component,  evolution, 
includes  those  activities  geared  toward  software  evolution  such  as  redocumentation, 
restructuring,  and  forward  engineering.  The  approach  taken  in  our  research  followed  a 
sequence  of  system  understanding,  reverse  engineering,  then  followed  by  application 
restructuring  and  finally  forward  engineering.  The  details  of  each  activity  are  described 
in  the  following  paragraphs. 
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Figure  1 .  Re-engineering  Process 


1.  System  Understanding 

System  understanding  reflects  the  process  of  creating  and  maintaining  an 
understanding  of  the  system  through  analysis,  elicitation,  and  capture  [Ref.  11].  The  first 
step  in  our  process  took  the  form  of  a  series  of  brief  meetings  with  the  client,  TRAC- 
Monterey,  which  also  included  a  short  demonstration  of  the  current  software  system.  We 
asked  questions  and  made  several  notes  on  the  system's  operation  and  it’s  current 
functionality.  We  paid  particular  attention  to  the  client’s  view  of  the  system  to  gather 
their  ideas  on  its  strengths,  weaknesses,  and  desired  and  undesired  functionality. 
Additionally  we  collected  copies  of  the  Janus  User’s  Tutorial  manual,  Janus  User 
Manual,  the  Software  Design  Manual  from  a  previous  version  of  Janus  (3.X/UNIX),  and 
the  Janus  Version  6.88  Release  Notes.  Our  goal  was  to  gather  as  much  information  as  we 
could  about  the  current  existing  system  to  aid  in  gaining  a  clearer  understanding  of  its 
present  functionality.  This  provided  a  sound  foundation  upon  which  to  move  up  one 
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level  of  abstraction  from  implementation  and  focus  on  the  system’s  underlying 
architectural  design.  The  intent  of  this  procedure  was  to  ensure  that  the  systems’  current 
functionality  was  not  lost  nor  misrepresented  in  the  transformation  into  a  more  abstract, 
modular  format. 

2.  Reverse  Engineering 

Reverse  engineering  may  be  defined  as  the  process  of  analyzing  an  existing 
system;  identifying  its  system  components,  abstractions  and  interrelationships;  and  then 
creating  the  respective  representation  [Ref.  11].  In  similar  fashion,  the  focus  of  this  step 
was  to  abstractly  capture  the  system’s  functionality  and  then  produce  modules  that  would 
most  accurately  represent  that  functionality.  Armed  with  the  Janus  source  code,  we 
proceeded  to  divide  the  code  by  directories  amongst  each  team  member.  Each  team 
member  was  assigned  roughly  six  to  seven  directories  to  explore,  examine,  and  gather 
information.  Using  strictly  manual  techniques  with  UNIX  commands  and  review 
procedures,  we  were  able  to  get  a  fairly  good  idea  of  what  each  subroutine  was  designed 
to  do.  We  additionally  used  the  Software  Programmers’  Manual  to  aid  in  better 
understanding  each  subroutine’s  function,  its  required  parameters  and  coordinating 
subroutines.  In  doing  so  we  were  able  to  group  the  subroutines  by  functionality  to  get  a 
better  understanding  of  the  major  data  flows  between  programs.  Using  that  knowledge, 
we  developed  functional  models  from  the  data  flows.  We  used  an  automated  tool  known 
as  CAPS,  developed  by  Professor  Luqi  and  the  Software  Engineering  group  at  the  Naval 
Postgraduate  School,  to  assist  in  developing  the  abstract  models  [Ref.  12,  13].  CAPS 
allowed  us  to  rapidly  graph  the  gathered  data  and  transform  it  into  a  more  readable  and 
usable  format.  Additionally,  CAPS  enabled  us  to  develop  our  diagrams  separately  with 
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the  associated  information  flows  and  stream  definitions,  and  then  join  them  together  still 
under  the  CAPS  environment.  These  diagrams  were  then  used  to  generate  an  executable 
model  of  the  system’s  architecture. 

3.  Application  Restructuring 

Next,  we  proceeded  to  develop  the  object  models  of  the  Janus  system  using  the 
aforementioned  materials  and  products  to  create  the  modules  and  associations  amongst 
them.  Chikofsky  defines  restructuring  as  the  transformation  of  representations  at  the 
same  level  of  abstraction  while  preserving  the  system’s  external  behavior  [Ref.  1 1].  The 
transformation  of  the  functional  models  to  object  models  was  probably  the  most  difficult 
and  most  important  step,  primarily  because  it  required  a  great  deal  of  detailed  technical 
analysis  and  astute  focus  to  mentally  transform  the  current  chaotic  assembly  of  data  and 
functions  into  small,  realizable  objects  each  with  its  own  set  of  attributes  and  operations. 
In  performing  this  step,  we  used  our  knowledge  of  object-oriented  analysis  applying 
concepts  from  Object  Modeling  Technique  (OMT)  and  the  Unified  Modeling  Language 
(UML)  notations  to  create  the  classes  and  associated  attributes  and  operations.  This  was 
really  a  crucial  step  because  we  had  to  ensure  that  the  classes  we  created  accurately 
represented  the  functions  and  procedures  currently  found  in  the  original  system.  We  used 
the  HP-UNIX  systems  at  the  TRAC-MTRY  facility  to  run  the  Janus  simulation  software 
to  aid  in  verifying  and/or  supplementing  the  information  we  obtained  from  reviewing  the 
source  code  and  documentation.  This  step  enabled  us  to  better  analyze  the  simulation 
system,  gaining  insight  into  its  functionality  and  further  concentrate  on  module  definition 
and  refinement.  Our  goal  was  to  develop  viable  class  representations  from  the  gathered 
information,  which  would  best  represent  the  software’s  current  functionality. 
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4.  Forward  Engineering 

As  in  conventional  software  development,  forward  engineering  begins  with  the 
system  specification.  The  newly  developed  object  models  along  with  our  knowledge 
gained  during  the  system  understanding  phase  served  as  our  system  specification  for  the 
realization  of  the  new  system. 

During  this  phase  of  the  re-engineering  effort,  our  team  focus  was  to  move 
forward  to  develop  the  desired  system  for  the  Janus  Simulation  System  from  our  newly 
created  object  models.  Again  we  closely  analyzed  each  object,  its  associated  attributes, 
and  operations  to  ensure  we  captured  an  accurate  representation  for  future  development 
and  integration  into  our  newly  planned  object-oriented  architecture.  The  team  met 
several  times  each  week  for  a  period  of  nearly  three  months  to  discuss  the  details  of  the 
object  models  and  the  proposed  structure  of  the  Janus  object-oriented  architecture.  We 
also  presented  our  findings  weekly  to  the  Janus  domain  experts  at  TRAC-MTRY  and 
members  of  Rolands  &  Associates,  a  local  software  developer  also  involved  in  the 
project.  Our  re-engineering  team  additionally  presented  findings  to  numerous  other 
technical  organizations  within  the  software  simulation  development  community  to 
include  the  OneSAF  project,  the  Combat21  project,  and  the  National  Simulation  Center  at 
Fort  Leavenworth,  Kansas.  The  gathered  feedback  from  each  session  was  then  reviewed 
and  analyzed  for  possible  incorporation  into  the  object  models  for  the  Janus  core 
elements  and  development  of  the  object-oriented  software  architecture. 
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B.  BUILDING  THE  OBJECT  MODEL 


1.  The  Three-Tier  Object-Oriented  Architecture 

We  observed  that  possessing  a  solid  software  architecture  is  one  of  the  key 
elements  in  successfully  re-engineering  a  legacy  software  system.  Realizing  this,  we 
opted  to  use  a  layering  concept  to  provide  an  application  architecture  that  would 
minimize  the  negative  impacts  due  to  change  in  the  base  technology  or  in  the  addition  of 
any  new  application  features.  Layering  application  architecture  has  also  been  shown  to 
enhance  the  concept  of  software  reuse  by  creating  additional  layers  to  separate  the  user 
system  interface  client  environment  from  the  database  management  server  environment 
and  other  services.  Some  systems  have  achieved  upwards  of  60%  reuse  of  software 
within  one  domain  of  an  application.  [Ref.  14] 

In  designing  our  system,  we  wanted  to  use  an  object-oriented  system  architecture 
to  serve  as  the  basis  for  our  reengineering  effort.  Our  current  top-level  communications 
structure  of  the  existing  software  did  not  decompose  the  system  into  clearly  defined 
subsystems  where  each  subsystem  comprised  a  related  set  of  functions  sharing  a  common 
purpose  and  having  a  well-defined  interface. 

To  create  a  truly  object-oriented  system  architecture  we  chose  to  decompose  the 
Janus  system  vertically  into  layers.  Each  layer  was  built  in  terms  of  the  ones  below  it. 
The  lower  layer  provides  the  basis  for  implementation  to  the  layers  above  it.  Thus,  a 
subsystem  can  communicate  to  a  lower  layer  via  a  client-server  relationship  where  clients 
must  know  the  interface  of  the  server  to  use  its  provided  functionality.  This  type  of 
architecture  highly  promotes  system  flexibility  and  reuse  by  allowing  a  subsystem  or 
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layer  to  be  modified,  rewritten,  and  /or  replaced  without  affecting  or  disrupting  the 
operation  of  the  entire  system. 

After  deciding  upon  a  layered  software  architecture,  we  additionally  selected  to 
use  a  closed  architecture.  This  meant  that  each  layer  was  limited  to  communicate  only  to 
the  layer  immediately  beneath  it.  Implementing  this  limitation  reduced  the  dependencies 
to  just  two  layers:  the  current  layer  and  the  layer  immediately  beneath  it.  Reducing 
dependencies  amongst  these  layers  of  the  architecture  worked  to  localize  changes  to  just 
one  layer  as  long  as  all  of  the  interfaces  associated  with  that  layer  remained  the  same. 
Subsequently,  if  changes  to  an  interface  must  occur,  this  type  of  architecture  limits  those 
changes  to  the  system  to  just  the  two  layers  interacting  via  the  newly  changed  interface. 

In  our  design,  we  chose  to  use  a  classic  three-tier  architecture  (Appendix  A)  to 
serve  as  our  basis  for  the  Janus  system.  This  architecture  took  into  account  all  the 
benefits  listed  above  by  providing  three  layers  of  representation:  a  Presentation  layer,  an 
Applications  layer,  and  a  Storage/Network  layer.  We  mapped  the  functionality 
represented  in  the  current  Janus  top-level  communications  structure  to  our  three-tier 
architecture.  The  Janus  User  Interface  maps  directly  to  the  presentation  layer,  which  is 
relatively  free  of  application  processing.  The  Applications  layer  contains  the  meat  of  the 
system  to  include  the  core  elements  that  perform  the  major  event-processing  tasks  in 
Janus,  and  the  other  components  required  for  system  operation.  We  additionally  chose  to 
further  divide  the  Applications  layer  into  two  sub-layers  (Appendix  A):  a  Domain  layer, 
which  provides  services  to  the  Janus  User  Interface  and  a  Services  layer  to  provide 
communication  and  access  to  the  storage  devices  and  the  network.  This  finer 
decomposition  of  the  middle  layer  promptly  introduced  the  concept  of  a  multi-tiered 
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architecture  as  opposed  to  three,  however  the  idea  of  a  single  “middle  tier”  remains.  The 
additional  layers  allowed  us  to  further  separate  the  responsibilities  imposed  by  the  three- 
tier  architecture  and  develop  more  modular,  specialized,  reusable  components.  We  were 
then  able  to  map  most  of  the  functionality  to  the  Domain  layer,  thus  providing  services 
similar  to  those  currently  provided  by  the  Janus  GUI.  Most  of  the  work  is  done  in  the 
Domain  sub-layer.  The  components  here  perform  the  majority  of  the  system  processing 
functions  and  application  execution.  The  Services  sub-layer  provides  access  to  both  the 
Janus  Database  and  DIS/HLA  infrastructure. 

Using  a  three-tier  architecture  provided  a  clearly  defined  interface  between  each 
layer,  which  allowed  changes  to  a  particular  layer  to  be  localized  to  that  layer.  For 
instance,  if  the  Janus  database  had  to  be  completely  changed  due  to  size  and  format 
constraints,  this  type  of  architecture  would  allow  changes  to  be  localized  to  just  the 
storage  layer  as  long  as  the  interface  between  the  storage  and  services  layers  did  not 
change.  In  a  similar  fashion,  if  for  instance  the  interface  between  database  utilities  and 
the  database  did  not  provide  the  proper  services,  a  change  to  that  interface  would  be 
needed  to  include  any  new  interface  requirements.  This  newly  changed  interface  would 
then  demand  appropriate  changes  be  made  to  the  services  and  storage  layers  to 
accommodate  those  new  interface  changes.  However,  nothing  in  the  domain  layer  would 
need  to  be  changed. 

2.  Building  the  Simulation  Objects 

After  developing  the  three-tier  architecture,  our  next  goal  was  to  expand  this 
architecture  to  encompass  the  functionality  of  the  current  Janus.  As  part  of  our  reverse 
engineering  effort,  we  focused  our  attention  on  the  Janus  Combat  Simulation  and  Core 
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Elements.  In  the  current  version  of  Janus,  a  user  can  create  a  Scenario  by  choosing  run 
parameters  that  control  the  environment,  which  consists  of  a  terrain  and  weather 
conditions  databases.  The  user  can  also  establish  combat  forces.  Each  force  would  then 
contain  a  collection  of  combat  units,  command  and  control  graphics,  and  any  selected 
obstacles. 

Since  Janus  is  such  a  large  system,  our  first  step  was  to  build  small,  coherent, 
realizable  objects,  each  with  its  own  attributes  and  operations,  that  would  accurately 
represent  the  functions  and  procedures  of  the  current  software.  In  order  to  accomplish 
this  task  we  divided  the  components  of  the  current  Scenario  amongst  the  team  members. 
Each  member  reviewed  the  source  code  and  documentation  and  created  objects  with 
associated  attributes  and  methods.  After  each  member  had  an  opportunity  to  work  on  his 
or  her  object,  the  re-engineering  team  met  to  discuss  the  object  models  for  the  Janus  core 
elements  and  the  object  oriented  architecture  for  the  Janus  system.  As  each  member 
presented  their  finding,  others  provided  feedback.  To  ensure  greater  accuracy,  we 
presented  our  findings  to  the  Janus  domain  experts  from  TRAC-MTRY  and  Rolands  & 
Associates.  Based  on  their  feedback  the  team  revised  the  object  models. 

We  focused  primarily  on  the  attributes  of  the  system  to  create  the  objects  since  the 
attributes  were  fairly  well  defined  in  the  Janus  documentation.  By  tracking  the  attributes, 
we  were  able  to  find  insights  to  how  Janus  manipulates  data  structures.  Data  structures  in 
Janus  are  FORTRAN  arrays.  Operational  parameters  are  spread  across  a  number  of 
arrays  and  are  identified  by  an  array  index  value.  We  found  that  information  regarding  a 
particular  object  was  not  encapsulated.  Encapsulation  and  information  hiding  allow  the 
programmer  to  change  the  internals  without  affecting  the  user  provided  the  interface  does 
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not  changed.  By  encapsulating  the  attributes  within  the  objects,  we  greatly  reduced  the 
sophisticated  programming  skills  required  to  understand  Janus’  data  representation  and 
also  reduced  the  risk  and  cost  to  modify  future  systems. 

As  part  of  revising  our  object  models,  we  often  tried  to  structure  our  objects  to 
obtain  the  greatest  benefits  of  Object  Oriented  Programming  (OOP)  (Appendix  E).  Our 
first  effort  was  to  arrange  the  objects  into  hierarchies.  Hierarchies  provide  many  valuable 
advantages  such  as  type  extensions,  inheritance,  and  dynamic  dispatching.  A  specialized 
object  would  inherit  the  primitive  attributes  and  methods  of  its  parent,  but  maintain  the 
flexibility  to  add  or  override  attributes  and  methods  in  order  to  provide  specific  behaviors 
to  the  object.  For  an  example,  if  there  was  a  new  tank  that  exhibited  slightly  different 
movement  behavior  than  other  tanks,  a  designer  could  create  a  subclass  of  the  current 
Tank  Class.  The  subclass  would  then  inherit  all  the  attributes  and  methods  of  its  parent 
class.  The  designer  could  take  advantage  of  similar  behaviors  by  deciding  not  to  override 
any  of  the  common  methods  and  attributes  of  the  Tank  Class.  He  could  also  add  specific 
behaviors  by  overriding  others  or  by  adding  additional  methods  and/or  attributes. 

3.  Building  the  Event  Handler  Objects 

After  creating  base  objects  with  their  associated  attributes  and  simple  methods, 
we  needed  to  ensure  the  primary  functionality  of  the  Janus  Simulation  System  was 
properly  captured  in  our  model.  In  order  to  accomplish  this  task,  we  looked  at  the 
existing  Janus  code  architecture.  Central  to  the  Janus  Combat  Simulation  Subsystem  is 
the  program  RUNJAN,  which  is  the  main  event  scheduler  for  the  simulation.  RUNJAN 
determines  the  next  scheduled  event  (called  a  “process”  in  the  Janus  User  Manual)  and 
executes  that  event.  The  existing  Janus  Simulation  System  uses  17  different  categories  to 
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characterize  the  events.  RUNJAN  then  handles  these  17  events  using  the  following  event 
handlers: 

1)  DOPLAN  -  Interactive  Command  and  Control  activities 

2)  MOVEMENT  -  Update  units  positions 

3)  DOCLOUD  -  Create  and  update  smoke  and  dust  clouds 

4)  STATEWT  -  Periodic  activity  to  write  unit  status  to  disk 

5)  RELOAD  -  Plan  and  execute  the  direct  fire  events 

6)  INTACT  -  Update  the  graphics  displays 

7)  CNTRBAT  -  Detect  artillery  fires 

8)  SEARCH  -  Update  target  acquisitions,  choose  weapons  against  potential 
targets,  and  schedule  potential  direct  fire  events 

9)  DOCHEM  -  Create  chemical  clouds  and  transition  units  to  different  chemical 
states 

10)  FIRING  -  Evaluate  direct  fire  round  impacting  and  execute  an  indirect  fire 
mission 

11)  IMPACT  -  Evaluate  and  update  the  results  of  an  indirect  round  impacting 

12)  RADAR  -  Update  an  air  defense  radar  state  and  schedule  a  direct  fire  event 
for  “normal”  radar 

13)  COPTER  -  Update  a  helicopter  states 

14)  DOARTY  -  Schedule  an  indirect  fire  mission 

15) DOHEAT  -  Update  units’  heat  status 

16)  DOCKPT  -  Activity  to  perform  automatic  checkpoints 

17)  END  JAN  -  Housekeeping  activity  to  end  the  simulation 
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The  existing  event  scheduler  relies  on  global  arrays  and  matrices  to  maintain 
attributes  of  the  objects.  Since  our  first  task  was  to  move  these  attributes  to  the 
corresponding  objects,  our  second  task  would  be  to  distribute  the  event  handling 
functions  to  the  individual  objects.  However,  as  discovered  from  our  first  task,  many  of 
the  current  event  handler  categories  contained  redundant  code  and  did  not  seem  to  be 
very  coherent  to  the  objects  we  created.  Thus,  we  realized  the  need  to  redefine  some  of 
the  event  categories  in  order  to  provide  a  uniform  framework  and  to  eliminate  redundant 
coding  of  similar  or  identical  functions.  This  also  allowed  us  to  take  advantage  of  the 
dynamic  dispatching  capabilities  of  the  event  handling  functions  inherit  within  our 
object-oriented  architecture.  For  example,  the  set  of  event  handlers  used  for  a  particular 
unit  to  search  for  targets,  select  weapons,  prepare  for  a  direct  fire  engagement,  and  then 
execute  that  direct  fire  engagement  differs  depending  upon  whether  the  unit  has  a  normal 
radar,  special  radar,  or  no  radar  at  all.  The  existing  Janus  Simulation  System  uses  the 
RADAR  event  handler  to  carry  out  the  entire  procedure  if  the  unit  has  normal  radar. 
However,  it  uses  the  SEARCH,  RADAR,  and  RELOAD  event  handlers  to  carry  out  the 
procedure  if  the  unit  has  special  radar.  Finally  the  system  uses  the  SEARCH  and 
RELOAD  event  handlers  to  conduct  the  procedure  if  the  unit  has  no  radar  at  all. 

Upon  analyzing  the  Janus  Simulation  System  event  handlers,  we  were  able  to 
successfully  reduce  the  total  number  of  event  handlers  needed  in  the  simulation,  from  1 7 
to  14,  by  eliminating  identified  redundant  code.  Our  14  event  handlers  are  as  follows: 

1)  DOPLAN  -  Interactive  Command  and  Control  activities 

2)  MOVE_UPDATE_OBJ  -  Moves  and  update  all  objects  in  the  simulation 

3)  SEARCH  -  Based  on  all  detection  devices,  searches  for  potential  targets 
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4)  CHOOSE_DIRECT_FIRE_TARGETS  -  Once  search  is  complete  chooses 
best  target  to  engage.  In  future  simulations,  implementations  may  allow  users 
to  choose  targets. 

5)  COUNTERBATTERY  -  Simulates  counter  battery  radar  to  find  potential 
targets 

6)  DO_DIRECT_FIRE  -  Executes  direct  fire  events  and  updates  ammunition 
status 

7)  DO_INDIRECT_FIRE  -  Executes  indirect  fire  events  and  updates 
ammunition  status 

8)  IMPACT_EFFECTS  -  Calculates  results  of  round  impacting. 

9)  UPD ATE_HE AT_ST ATU S  -  Updates  units’  heat  status. 

10)  UPDATE_CHEMICAL_STATUS  -  Update  unit’s  chemical  status 

1 1)  DISPLAY  -  Updates  the  graphics  display. 

12)  WRITE_STATUS  -  Periodic  activity  to  write  units  status  to  disk. 

13)  CHECK_POINT  -  Activity  to  perform  automatic  checkpoints 

14)  END_SIMULATION  -  Activity  to  end  the  simulation. 

As  can  be  seen  in  Appendix  B,  we  renamed  some  of  the  event  handlers  to  possess 
more  descriptive,  meaningful  names.  We  additionally  combined  some  event  handlers 
having  similar  functionality  into  ones  that  were  more  easily  understood  and  applicable  to 
the  actual  function.  Every  event  now  has  an  associated  simulation  object.  This 
associated  object  is  the  target  of  the  event.  Depending  on  the  subclass  to  which  an  event 
object  belongs,  the  “execute”  method  of  the  event  will  invoke  the  corresponding  event 
handler  of  the  associated  simulation  object  (Appendix  C).  The  simulation  object 
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superclass  defines  the  interface  of  the  event  handlers  for  the  event  groups.  At  the  highest 
level,  it  provides  an  empty  body  as  the  default  implementation  for  the  event  handlers. 
Events  are  dispatched  to  the  appropriate  subclass.  The  event  handler  of  the  subclass 
overrides  the  inherited  method  in  order  to  perform  the  desired  behavior,  if  there  is 
something  more  specific  that  needs  to  be  done  for  instances  of  the  subclass. 

The  architecture  described  above  enables  a  very  simple  realization  of  the  main 
simulation  loop  (Appendix  G,  Section  25).  The  pseudo  code  for  the  event  control  loop  is 
as  follows: 

initialization; 

While  not _empty (event _queue)  loop 

e  :=  remove _event(event _queue) ; 
e.execute( ); 

End  loop; 

finalization; 

Note  that  this  same  code  is  used  to  handle  all  of  the  event  handlers,  including 
those  for  future  extensions  that  have  not  yet  been  designed.  Event  objects  with 
associated  simulation  objects  are  created  and  inserted  into  the  event  queue  by  the 
initialization  procedure,  the  constructors  of  an  object,  and  the  actions  of  other  event 
handlers.  Depending  on  the  actual  event,  it  is  inserted  into  an  event  priority  queue  based 
on  time  and  priority. 

Using  the  old  event  handlers  under  current  the  Janus  simulation  system  to  move  a 
tank,  smoke  cloud,  or  helicopter  required  three  distinctly  different  event  handlers, 
MOVEMENT,  COPTER  and  DOCLOUDS  respectively.  During  our  analysis  we  were 
able  to  consolidate  these  three  event  handlers  into  one  namely,  MOVE_UPDATE_OBJ. 
We  observed  that  although  a  tank,  a  smoke  cloud,  and  a  helicopter  are  all  distinctly 
different,  each  one  as  an  object  has  the  capability  to  move  and  update  its  present  location 
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and  other  parameters.  Thus,  the  name  MOVE_UPDATE_OBJ  accurately  described  the 
event.  Additionally,  under  the  old  event  handlers,  depending  on  the  particular  simulation 
object,  the  program  would  have  to  analyze  each  object  using  several  conditionals  in  order 
to  determine  which  event  handler  to  invoke.  Under  our  architecture,  we  take  advantage 
of  the  dynamic  dispatching  capabilities  provided  by  an  object-oriented  programming 
language,  to  automatically  dispatch  the  event  to  the  appropriate  event  handler.  Thus  to 
move  a  smoke  cloud  object,  the  new  architecture  will  invoke  the  MOVE_UPDATE_OBJ 
method  of  the  Cloud  Class.  This  allows  the  simulation  to  correctly  move  the  cloud  in 
accordance  with  the  current  environment  and  also  update  the  cloud’s  size  and  intensity. 
Similarly,  to  move  a  tank  or  helicopter  object,  the  new  architecture  would  dispatch  to  the 
appropriate  MOVE_UPDATE_OBJ  method  of  the  Vehicle  Class.  This  would 
subsequently  move  and  update  the  object’s  fuel  consumption  and  other  required 
parameters  based  on  the  particular  vehicular  type. 

Our  newly  designed  architecture  eliminates  the  need  for  the  simulation  loop  to 
know  what  kind  of  object  it  is  handling.  Thus  when  adding  an  object  type  not  yet 
designed,  the  simulation  loop  does  not  require  additional  code  to  invoke  the  new  object’s 
event  handlers.  This  eliminates  the  possibility  of  introducing  errors  into  the  existing  parts 
of  the  simulation  by  localizing  all  changes  to  the  newly  added  object  class. 
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IV.  PROTOTYPE:  WARRIOR  VERSION  1.4 


A.  BACKGROUND 

Prototyping  has  increasingly  become  a  widely  used  methodology  to  improve  the 
design  of  software  projects  [Ref.  15].  A  prototype  is  an  executable  model  of  a  proposed 
software  system  that  accurately  reflects  chosen  aspects  of  the  system,  such  as  display 
formats,  the  values  computed  or  response  times  [Ref.  2].  The  prototyping  methodology 
is  based  on  an  iterative  guess/check/modification  cycle  that  relies  on  prototype 
demonstrations  and  customer  reactions  to  validate  behavior  of  the  final  system.  The 
following  diagram  in  Figure  2  shows  how  to  validate  requirements  using  a  prototype 
process  [Ref.  16]: 


Figure  2.  The  Prototype  Process 


Prototyping  may  be  defined  as  an  approach  to  software  development  that  uses 
prototypes  or  executable  models  to  aid  both  developers  and  customers  alike  in  visualizing 
the  proposed  system,  and  to  predetermine  its  system  properties  using  an  iterative  process 
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[Ref.  2].  The  primary  purpose  of  a  prototype  is  to  serve  as  an  executable  model  of 
selected  aspects  of  a  proposed  system  and  to  help  designers  confirm  and  refine 
requirements  for  a  software  system.  Eliminating  incorrect  or  poorly  defined  requirements 
early  in  the  software  design  cycle  helps  reduce  the  time  and  total  cost  of  the  system.  If 
these  design  errors  are  left  to  propagate,  they  may  result  in  a  large  amount  of  wasted 
effort  spent  developing  software  to  meet  incorrect  or  inappropriate  specifications.  Much 
of  the  time,  effort,  and  cost  to  produce  the  product  will  be  thrown  out.  Designers  will 
have  to  go  back  to  the  drawing  board  to  correctly  re-define  the  requirements. 

Computer-aided  prototyping  serves  as  a  method  to  automate  the  design  process. 
Automation  allows  designers  to  quickly  develop  prototypes  to  analyze  software  systems. 
One  system  currently  under  research  at  the  Naval  Postgraduate  School  is  CAPS.  The 
main  components  of  CAPS  (Figure  3)  are  the  Editors,  the  Execution  Support,  the 
Software  Base,  and  the  Project  Control  [Ref.  17]. 


Figure  3.  CAPS  General  Structure 
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Using  the  Editors,  the  designer  can  sketch  system  data  flow  diagrams  augmented 
with  timing  and  control  constraints.  PSDL  is  a  high-level  prototyping  language  designed 
to  support  the  specifications  of  real-time  software  systems.  PSDL  also  helps  organize 
and  retrieve  reusable  components  from  the  Software  Base.  The  Software  Base  is  a 
database  system  that  consists  of  reusable  designs  and  software  components.  The 
Execution  Support  system  contains  the  translator,  the  static  scheduler,  the  dynamic 
scheduler,  and  the  debugger  [Ref.  18]. 

CAPS  provides  many  benefits,  the  most  significant  of  which  is  that  it  can 
automatically  generate  ADA  source  code  resulting  in  more  reliable  systems  at  reduced 
production  costs.  CAPS  supports  evolutionary  prototyping  that  provides  the  following 
benefits  [Ref  17]: 

1)  Risk  reduction  by  providing  a  systematic  method  for  validating  systems. 

2)  Reliable  code  through  automation. 

3)  Reduced  maintenance  costs. 

4)  Fewer  system  integration  problems  by  standardizing  all  interfaces. 

B.  THE  WARRIOR  PROTOTYPE 

1.  Purpose  of  the  Prototype 

We  needed  to  develop  an  executable  prototype  to  validate  our  object-oriented 
Model  of  the  Janus  Subsystem.  By  using  CAPS  to  rapidly  create  the  prototype,  we  could 
continue  the  prototyping  process  in  order  to  refine  the  Janus  interfaces,  adjust  the  designs 
to  handle  newly  discovered  issues,  and  exercise  all  parts  of  the  architecture  [Ref.  19]. 
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Thus,  the  result  of  the  prototype  process  is  to  validate  the  architecture  to  ensure  that  the 
architecture  will  meet  the  user’s  needs. 


2.  Building  the  Prototype 

When  developing  an  executable  prototype  of  the  simulation,  we  focused  on  four 
subsystems:  Janus,  GUI,  JAAWS,  and  the  POST  PROCESSOR.  Our  architecture  did 
not  include  re-engineering  the  JAAWS  and  POST  PROCESSOR  subsystems. 
Nevertheless,  we  felt  it  imperative  to  include  these  systems  in  our  prototype  to  validate 
the  interface  among  these  subsystems.  Figure  4  shows  the  top-level  PSDL  structure  of 
the  prototype. 
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Figure  5.  The  JANUS  subsystem  of  the  executable  prototype 


Among  the  four  subsystems,  the  Janus  and  GUI  subsystems,  depicted  with  double 
circles,  are  made  up  of  sub-modules  as  shown  in  Figures  5  and  6.  The 
POSTPROCESSOR  and  JAAWS  subsystems,  depicted  with  single  circles,  are  mapped 
directly  to  objects. 

Due  to  time  and  resource  limitations,  we  developed  the  prototype  for  a  very  small 
simulation.  In  order  to  fully  exercise  all  parts  of  the  architecture  we  chose  a  single 
object,  a  Tank,  moving  on  a  two-dimensional  plane  along  with  three  event  objects 
(Move_  Update  _Object,  Do_Plan,  End -Simulation),  and  one  Post-Processor  related 
statistic,  Fuel  Consumption. 
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Figure  6.  The  GUI  subsystem  of  the  executable  prototype 

After  creating  the  PSDL  specification  of  our  prototype  design  (Appendix  F),  the 
CAPS  execution  support  system  was  able  to  generate  the  code  that  controls  and 
interconnects  the  subsystems.  By  providing  functionality  to  the  subsystems,  we  were 
able  to  generate  an  executable  prototype.  When  adding  functionality,  we  were  careful  to 
ensure  we  conformed  to  the  object  model  we  developed  in  a  prior  exercise.  For  example, 
our  design  of  the  event  handler  required  the  handler  to  be  able  to  execute  events  for  all 
kinds  of  simulation  objects.  In  our  prototype,  this  meant  that  the  Move_Update_Object 
event  handler  had  to  work  with  all  different  kinds  of  simulation  objects.  Although  our 
tank  only  moved  in  two  dimensions,  we  choose  to  implement  the  MoveJUpdate  method 
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of  the  base  Vehicle  Class  to  support  3-D  movement  because  some  objects  must  have  the 
capability  to  move  in  three  dimensions.  Using  the  object-oriented  property  of 
polymorphism,  we  allowed  the  event  handler  to  invoke  the  correct  implementation  based 
on  the  object  type,  thus  solving  this  problem.  In  addition,  using  the  Transportable 
Application  Environment  (TAE)2,  we  were  able  to  develop  a  simple  GUI  to  allow  easy 
access  and  execution  of  the  prototype.  The  resultant  prototype  consisted  of  over  6000 
lines  of  program  source  code  and  contained  enough  features  to  exercise  our  architecture 
(Figure  7  and  Appendix  G). 


Figure  7.  The  Graphical  User  Interface  of  the  executable  prototype 


2  TAE  is  a  trademark  of  the  National  Aeronautical  and  Space  Administration. 
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C.  PROTOTYPE  REFINEMENTS 

As  we  worked  through  the  prototyping  process  we  made  several  refinements  to 
our  architecture.  The  prototype  resulted  in  the  following  refinements: 

1.  Return  Value  of  the  ExecuteEvent  Method 

Our  first  refinement  was  to  change  the  Execute  JEvent  method’s  return  value  from 
a  null  value  to  a  value  representing  the  time  to  reschedule  the  next  event  for  the 
simulation  object.  In  the  original  implementation,  the  Do  JEvent  method  retrieved  an 
event  object  from  the  queue,  which  was  then  dispatched  to  the  correct  Execute  JEvent 
method  via  polymorphism.  The  Execute_Event  method  then  executed  the  event  on  the 
corresponding  simulation  object.  If,  while  in  the  Execute_Event  method,  the  object 
required  rescheduling,  it  made  an  external  call  back  to  the  Do_Event  package  to  invoke 
the  Schedule  JEvent  method,  thus  adding  the  event  object  to  the  queue. 

However,  we  felt  that  all  queue  operations  should  be  localized  to  the  Do  JEvent 
package  and  that  execution  of  events  should  be  localized  to  the  Execute _Event  package. 
Therefore,  by  implementing  the  return  value,  we  were  able  to  separate  these  operations 
(Appendix  G).  Now  instead  of  the  Executejvent  method  making  an  external  call  back 
to  the  Do  Event  package  to  reschedule  the  event,  the  method  just  returns  the  time  to 
reschedule  that  event  if  necessary.  Once  control  is  returned  to  the  Do  JEvent  method,  it 
will  reschedule  the  event.  We  introduced  a  special  time  value  of  “ NEVER  ”  to  indicate 
that  the  event  should  not  be  rescheduled.  The  proposed  modifications  changed 
communications  between  the  event  dispatcher  and  the  simulation  objects  from  a  peer-to- 
peer  type  relation  into  that  of  a  client/server  type  relationship.  This  change  also  served  to 
reinforce  the  object-oriented  property  of  information  hiding  by  eliminating  the  need  for 


36 


the  simulation  objects  to  know  the  details  of  the  event  queue.  It  additionally  reinforced 
the  property  of  polymorphism  by  allowing  the  dispatcher  to  use  a  single  statement  to 
schedule  all  recurring  events  for  all  event  types  including  those  that  may  be  added  by 
currently  unknown  future  extensions  to  Janus. 

2.  Simulation  History 

Our  second  refinement  to  the  architecture  dealt  with  how  to  record  the  history  of 
the  simulation  run.  Instead  of  recording  the  history  in  terms  of  periodic  snapshots  of 
selected  data  values,  we  decided  to  record  the  simulation  history  as  a  sequence  of  events. 
Our  first  implementation  of  recording  the  history  was  based  on  the  current  Janus  model. 
In  this  model,  a  special  event,  Write_Status,  executed  periodically  to  capture  selected 
data  values  and  write  them  to  disk.  However,  the  prototype  showed  us  that  this  model 
was  highly  inefficient,  inaccurate  and  often  unreliable.  For  example,  many  of  the 
simulation  objects’  states  remained  constant  through  several  Write_Status  executions. 
Most  of  the  data  captured  was  redundant.  In  order  to  increase  the  accuracy,  the  system 
would  have  to  capture  more  data  values.  Combined  with  the  redundant  data  problem,  one 
could  easily  see  how  the  size  of  the  history  file  could  easily -grow  rapidly.  Moreover,  the 
Write_Status  event  handler  has  to  keep  track  of  the  status  of  the  objects  that  own  the 
selected  data  values. 

After  further  investigation,  we  realized  that  the  state  of  the  simulation  only 
changed  when  an  event  occurred.  If  we  were  able  to  capture  each  event  in  a  history  file, 
we  could  then  capture  a  true  representation  of  the  simulation  as  it  occurred.  Since  we 
were  already  using  the  event  objects  for  the  real-time  simulation,  using  the  event  objects 
to  create  a  historical  record  provided  a  simple  and  uniform  way  to  conduct  post- 
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simulation  analysis.  As  we  implemented  this  change,  we  discovered  two  primary 
benefits.  First,  we  were  able  to  provide  the  post-simulation  with  the  greatest  resolution 
without  creating  an  excessively  large  database.  By  capturing  the  events,  any  quantity 
calculated  during  the  real-time  simulation  could  also  be  calculated  during  the  post¬ 
simulation.  Second,  we  eliminated  the  need  for  a  Write_Status  event  from  our 
architecture.  Instead  of  using  the  Write_Status  event  (Appendix  B)  to  capture  the  history, 
we  made  a  single  line  modification  to  our  DoJEvent  method  (Appendix  G,  Section  25). 
After  an  event  is  executed,  a  copy  of  the  event  is  placed  in  the  Simulation _History. 

3.  Null  Action  of  an  Event  in  the  Event  Queue 

Our  third  refinement  allowed  the  null  action  of  an  event  to  appear  in  the  event 
queue.  A  null  action  of  an  event  does  not  affect  the  state  of  the  simulation  but  serves  as  a 
placeholder  of  a  dormant  object  in  the  event  queue  and  also  serves  as  a  method  to  allow 
future  events.  In  our  first  version  of  the  prototype,  we  opted  to  not  allow  null  events  into 
the  event  queue  since  this  decision  corresponds  to  the  current  Janus  scheduling  policies. 
As  implemented,  we  used  the  Create  _New _Events  method  to  scan  through  all  of  the 
simulation  objects  once  per  simulation  cycle  to  determine  if  any  dormant  objects  became 
active.  If  so,  after  determining  the  object  and  correct  corresponding  event,  the 
Create _New_Events  method  would  reschedule  the  object  in  the  queue. 

The  prototype  revealed  that  this  process  required  very  complicated  logic  and 
greatly  reduced  the  efficiency  of  the  system.  By  allowing  a  null  action  of  an  event  in  the 
event  queue,  we  eliminated  the  need  for  the  Create _New_Events  method  to  scan  through 
all  of  the  simulation  objects.  We  now  put  the  responsibility  on  the  event  handlers  to 
manage  dormant  objects.  Constructors  for  all  kinds  of  simulation  objects  are  used  to 
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create  the  initial  events  in  the  queue.  As  described  above,  the  Execute_Event  method  of 
each  event  handler  determines  the  next  time  to  execute  the  event  and  returns  it  to  the 
Do_Event  method  for  rescheduling.  However,  if  the  Execute_Event  method  of  an  event 
handler  determines  that  the  object  is  not  yet  active,  it  simply  returns  an  estimated  time  to 
the  DoJLvent  method.  The  DoJEvent  method  will  then  invoke  the  event  of  the  object 
again  at  some  time  later  in  the  simulation.  Then,  in  the  future  when  the  event  waiting  in 
the  queue  executes  and  the  object  becomes  active,  the  event  handler  would  determine  the 
correct  action  and  return  a  schedule  time  for  the  meaningful  event.  For  instance,  if  a 
vehicle  arrives  at  its  destination,  the  Move _Update Object  event  handler  would  flag  its 
event  to  do  nothing  and  wait  for  some  duration  of  time  to  allow  the  user  to  provide  a  new 
destination.  If  this  duration  were  not  long  enough,  it  would  repeat  this  waiting  process. 
As  soon  as  a  user  provided  a  new  destination,  the  Move  JUpdate  Object  event  handler 
would  return  a  value  and  enable  its  event  to  move  the  vehicle. 

In  its  final  version,  the  prototype  showed  this  refinement  greatly  improved  overall 
system  efficiency  and  simplified  the  code  in  the  following  areas: 

1)  Checking  to  verify  if  a  dormant  object  became  active  is  done  once  per  activity 
of  that  object  instead  of  once  per  simulation  cycle. 

2)  Null  actions  of  events  are  fast  since  they  are  basically  just  a  guard.  The  time 
required  to  check  a  guard  in  a  Null  action  of  an  event  once  per  activity  is 
much  less  than  that  required  to  check  the  status  of  each  simulation  object  once 
during  each  simulation  cycle. 

3)  Eliminating  complicated  code  in  order  to  find  and  test  all  simulation  objects 
reduces  the  computational  load  on  the  system. 
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D.  LESSONS  LEARNED 


Throughout  our  prototyping  experiment,  we  learned  the  benefits  of  using  the 
prototype  process.  Each  iteration  of  the  prototyping  process  produced  several  criticisms, 
many  of  which  resulted  in  the  refinements  described  above,  which  ultimately  produced  a 
more  realistic  prototype.  In  the  end,  we  developed  a  prototype  that  successfully  met  the 
users  needs  and  validated  our  architecture. 

We  observed  the  many  benefits  of  designing  a  prototype  using  an  object-oriented 
architecture.  In  the  course  of  two  weeks,  with  the  assistance  of  CAPS,  we  were  able  to 
rapidly  build  four  versions  of  our  prototype.  As  our  prototype  evolved,  CAPS  ensured 
consistency  of  each  version  while  the  three-tiered  object-oriented  architecture  allowed 
localization  of  design  issues  and  provided  an  easy  means  for  extensions.  For  instance, 
version  1  of  our  prototype  consisted  of  only  two  event  subclasses,  Move JJpdate -Object 
and  End -Simulation.  Version  2  introduced  a  third  event  subclass,  DoPlan.  The 
Do _Plan  event  allowed  the  user  to  select  new  destinations  for  the  tank.  Because  of  the 
unique  flexibility  of  our  object  design,  we  were  able  to  add  this  event  without  having  to 
modify  the  event  control  loop,  thus  unaffecting  the  previously  working  code.  After  we 
implemented  Do_Plan,  we  discovered  that  our  implementation  forced  the  user  to  first 
enter  an  X-coordinate  followed  by  a  corresponding  Y-coordinate.  Since  our  object- 
oriented  design  localized  the  implementation  of  the  Do_Plan  event  to  just  a  few  lines  of 
code,  we  were  able  to  find,  fix,  and  implement  a  better  Do  Plan  event.  In  the  final  state, 
we  added  an  Enter  Button  to  the  GUI  to  allow  the  user  to  enter  the  coordinates  in  any 
order  or  to  allow  the  user  to  change  one  coordinate  at  a  time. 
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In  the  final  analysis  it  is  easy  to  see  that  our  architectural  design  benefited 
immensely  by  our  decision  to  use  an  object-oriented  methodology  and  design.  The  use  of 
multi-tiered  architectural  concepts  within  our  three-tier  architecture  allowed  for  isolation 
of  the  Applications  layer  into  separate  components.  This  is  very  valuable  in  the  sense 
that  it  promotes  the  use  of  reusable  components  and  allows  for  the  distribution  of  tiers  on 
different  physical  computing  hosts.  Another  benefit  is  that  it  provides  flexibility  to  allow 
different  developers  to  construct  specific  tiers  of  the  architecture,  as  is  the  case  in  our 
project  where  a  separate  contractor  is  developing  the  system’s  GUI. 

Additionally,  the  object-oriented  properties  of  polymorphism  and  inheritance 
greatly  enhanced  our  ability  to  efficiently  extend  the  behaviors  and  provide  specific 
behaviors  to  objects.  For  example,  in  version  2  of  our  prototype,  we  introduced  the 
POSTPROCESSOR  module,  which  allowed  users  to  view  the  vehicle’s  fuel 
consumption.  However,  a  fuel  consumption  calculation  would  require  more  specific 
behavior  from  our  tank’s  Move_Update_Object  method.  In  addition,  as  described  above, 
in  version  1  of  our  prototype  we  used  polymorphism  and  inheritance  properties  to  move 
the  tank,  thus  allowing  the  event  handler  to  dispatch  to  the  Tank  Class.  This  again 
demonstrated  the  unique  object-oriented  luxury  of  inheriting  general-purpose  movement 
behaviors  from  the  superclass.  In  version  2,  we  had  to  modify  this  behavior  to  show  the 
vehicle’s  fuel  consumption.  By  calculating  the  time  elapsed  from  the  last  movement  and 
using  the  vehicle’s  fuel  consumption  rate  per  time,  we  were  able  to  compute  the  correct 
amount  of  fuel  consumed.  In  the  end,  the  Tank  Class  Move_Update_Object  method 
consisted  of  a  guard,  one  statement  to  invoke  the  superclass  Move_Update_Object,  and 
three  lines  to  calculate  the  amount  of  fuel  consumed  (Appendix  G,  Section  81).  Again 
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using  the  properties  of  polymorphism  and  inheritance,  additional  objects  such  as 
helicopters,  airplanes  and  other  mobile  weapon  platforms  can  be  easily  implemented  in  a 
similar  fashion. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

Our  thesis  research  indicates  that  by  applying  reverse  engineering,  restructuring, 
and  forward  engineering  techniques,  we  were  able  to  successfully  evolve  a  procedurally 
coded,  function  oriented  legacy  software  system  into  a  highly  modular,  object-oriented 
software  system  capable  of  contending  with  current  simulation  systems.  We  developed 
an  architecture  that  supports  the  functionality  of  the  current  Janus  simulation  system, 
while  also  maintaining  the  flexibility  to  evolve  to  handle  new  and  future  design  changes. 
Using  object-oriented  design  and  analysis  techniques,  we  created  objects  and  classes  that 
encapsulated  related  items  and  developed  a  structural  model  of  the  system.  This  enabled 
future  modifications  of  the  system  to  be  accomplished  by  manipulating  those  objects  or 
by  introducing  new  objects  into  the  system.  For  example,  while  working  on  the  Janus 
simulation  system,  TRAC-WSMR  informed  us  that  the  Janus  model  for  the  Radar 
implementation  was  outdated  and  that  a  new  model  would  be  out  within  a  year. 
However,  we  had  already  completed  this  section  of  our  architecture  and  based  it  on  the 
currently  outdated  Radar  model.  Nevertheless,  since  we  used  an  object-oriented 
architecture,  it  will  be  relatively  easy  to  incorporate  any  changes  to  our  model  since  all  of 
the  information  regarding  the  Radar  functionality  is  located  in  only  two  areas,  the  Red 
and  Blue  Radar  objects. 
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B.  RECOMMENDATIONS 


1.  Automated  Tools 

As  we  look  back  on  the  Janus  simulation  re-engineering  process,  we  can  recall  the 
enormous  amount  of  time  and  effort  spent  analyzing  the  system.  This  process  was  a 
literal  nightmare  consisting  of  manually  intensive  sessions  reading  and  tracing  through 
FORTRAN  source  code,  reading  technical  and  user  manuals,  not  to  include  several 
sessions  spent  actually  running  the  Janus  simulation  software.  Although  this  was  an 
extremely  important  phase  of  our  project  and  one  that  could  not  be  overlooked,  it  was 
nevertheless,  very  time  consuming  and  strenuous.  The  use  of  some  well-defined 
automated  tools  would  have  been  helpful  in  gaining  system  understanding.  Although  one 
can  not  assume  that  any  one  tool  will  be  a  “be  all,  do  all”,  but  rather  having  even  a  small 
collection  of  tools  will  assist  the  software  engineer  in  gaining  system  comprehension.  As 
such,  we  highly  recommend  the  use  of  automated  tools  to  aid  in  reducing  the  time  and 
effort  spent  analyzing  the  system,  and  also  to  assist  the  software  engineer  in  examining 
the  raw  data. 


2.  Cross-Reference  Generators 

As  part  of  our  research  we  often  found  ourselves  manually  searching  through  the 
Janus  source  code  to  find  answers  to  specific  questions  regarding  a  particular  variable 
(i.e.  who  uses  it,  where  is  it  used,  how  is  it  used,  etc.).  Professor  Berzins  suggested  using 
the  cross-reference  option,  which  was  readily  available  on  the  CS  Department’s 
FORTRAN  compiler.  A  cross-reference  generator  creates  a  list  of  all  of  the  identifiers  in 
a  program  and  for  each  identifier  in  the  program,  it  indicates  the  statement  in  which  that 
identifier  appears.  The  use  of  a  FORTRAN  cross-reference  generator  would  have  been 
very  helpful  in  gathering  needed  variable  information  and  thus  assisted  us  in 
understanding  the  system.  Even  though  we  could  not  compile  and  run  the  Janus 
simulation  system  on  our  SUN  UNIX  machines,  the  FORTRAN  compiler  could  have 
automatically  built  a  cross-reference  listing  of  all  variables.  Then  by  using  this  cross- 
reference,  we  could  quickly  and  easily  find  answers  to  our  specific  questions  and  thus 
eliminate  wasteful,  time-consuming  manual  searches. 
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Throughout  the  conduct  of  our  thesis  research,  few  areas  stand  out  as  those 
requiring  a  high  degree  of  focus  and  intense  attention  to  detail.  System  understanding 
was  one  such  area  that  demanded  intensive  manual  activity  and  time.  Techniques  to 
automate  this  process  would  allow  the  developers  to  devote  more  time  and  energy  to  the 
overall  design  and  implementation  of  the  new  system. 
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APPENDIX  A.  PROPOSED  THREE-TIER  OBJECT-ORIENTED 

ARCHITECTURE 
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APPENDIX  B.  EVENT  CLASS  HIERARCHY 


Event 

i^Ti m e_Fo  r_E  ve  nt :  Float 
^ExecuteQ 


Impact_Effects 

Write_Status 

Do_Direct_Fire 

Counterbattery 

^ExecuteQ 

♦ExecuteQ 

*Execute() 

♦ExecuteQ 

- 1 _  _ _ _ L. . - . _  . . . 

-  Do_Plan Display  Check  Point 

*Execute()  *Execute()  ^ExecuteQ 


Search  Do_lndirect_Fire  Move  Update  Obj  :  Update  HeatStatus 

♦ExecuteQ  ^ExecuteQ  ^ExecuteQ  1  ♦ExecuteQ 


Update  Chem 

leal  Status 

End  Simulation 

Choose  Direct  Fire  Targets 

^ExecuteQ 

^ExecuteQ 

*ExecuteQ 
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APPENDIX  C.  SIMULATION  OBJECT  CLASS  HIERARCHY 


Note:  The  simulation  object  class 
hierarchy  includes  every  core 
element  object  which  changes  state 
during  the  simulation.  Future 
extension  may  include  Terrian  and 
Weather_Data  if  they  are  allowed  to 
change  state  during  simulation. 


Simulation  Object 
^Origin :  2d  Coord 


♦DoPlan() 

4Move_U  pdate_Obj  () 

4write_Status() 

♦Do_Direct_Fire{) 

4Display() 

4Counterbattery{) 

4$earch() 

4choose_D  i  rect_Fi  re_T  ar  gets( ) 

4u  pdate_C  hem  i  cal_Status( ) 

4Do_lndirect_Fire() 

4|mpactJ=ffects() 

^Update~Heat_Status() 

4Check_Pcint() 

4End_Simulation() _ 


Combat  Hement 


^name:type 


A 


Scenario 


4Do_Plan() 

4Write_Status() 

4Display() 

4Check_Pcint() 

4End_Simulation() 


Cloud 


4MoveJJ  pdate_Obj  ( ) 


WM  Cloud 


Minefield 

Barrier 

/ 

/ 

i 

\ 

L 

Unit 


4Search() 

4c  hoose_Driect_Fire_Targets() 
^Counter  battery  () 

4|  ndi  rect_M  sn_Start( ) 

4indi  rect_Msn_Cancel  () 
4Change_Breach_Mode() 
4Do_Direct_Fire() 
^Do_lndrect_Fire() 

4  U  pdate_C  hem  i  cal_Status  ( ) 

4u  pdate_Heat_Status( ) 

4m  oveJJ  pdate_Obj  ( ) _ 


WM  Minefield 


WM  Barrier 


Firing  Transaction 


A 


A 


A 


1  Direct  Fi re  Transaction 

Indirect  Fi  re  T ransaction 

|  4impact_Effiects() 

4!mpact_Effects() 

WM  Unit 


A 


i  WM  DF  Trans 

!  WM  IF  Trans  1 

I _ J 
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APPENDIX  D.  JANUS  SIMULATION  EVENT  HANDLERS 


Name  of  Event 

Objects 
responsible 
to  handle  the 
event 

Remarks 

Do_plan 

scenario 

May  be  initiated  by  the  graphical  user 
interface  and  it  in  turn  may  schedule 
other  events.  See  Note  1 . 

Display 

scenario 

May  be  triggered  at  regular  time 
interval.  See  Note  1. 

Write_Status 

scenario 

May  be  triggered  at  regular  time 
interval.  See  Note  1. 

Check_Point 

scenario 

May  be  triggered  at  regular  time 
interval.  See  Note  1. 

Move_Update_Obj 

Unit 

Updates  units  position  due  to 
movement,  and  schedule  the  next 
Move_Update_Obj  event  for  the 
object.  Mapped  to  movement. f, 
copter.f,  update.f  updsldr.f,  updflyer.f 

- 

Cloud 

Updates  shape,  location  (if  needed), 
and  expiration  time.  It  schedules  the 
next  Move_Update_Obj  event  for  the 
object.  Mapped  to  part  of  docloud.f, 
cldupd.f,  and  chmcld.f. 

Search 

Unit 

Update  potential  target  list.  Use 
different  methods  depending  on  the 
kind  of  sensors  the  unit  has.  It  also 
schedules  the  next  search  event  for  the 
object.  Mapped  to  search.f,  part  of 
radar.f  for  normal  and  special  radar. 
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Choose_Direct_F  ire_T  argets 


Updates  visibility  levels  and  performs 
IFF  to  produce  confirmed  target  list. 
Selects  weapons  for  the  targets  in  the 
potential  target  list.  Choose  target 
from  the  confirmed  target  list  and 
schedule  a  direct  fire  event.  Use 
different  methods  depending  on  the 
kind  of  platform  the  unit  belongs  to 
and  the  kind  of  sensors  the  unit  has.  It 
also  schedules  next 
Choose_Direct_Fire_Targets  event  for 
the  object.  Mapped  to  dodetect.f, 
detect.f,  flydetc.f,  handoff.f,  and 
reload,  and  part  of  radar,  f  (for  normal 
radar). 


Do  Direct  Fire 


Creates  a  Direct_Firing_Transaction 
object  and  schedules  an 
Impact_Effects  event  for  the  object. 
Mapped  to  shoot,  f ,  and  adfire.f  for 
normal  radar. 
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Update_Chemical_Status 

unit 

Updates  chemical  effects  on  unit  and 
schedules  next 

Update_Chemical_Status  for  the 
object.  Mapped  to  part  of  dochem.f 

Update_Heat_Status 

unit 

Updates  heat  effects  on  unit  and 
schedules  next  Update_Heat_Status 
for  the  object.  Mapped  to  part  of 
doheat.f 

EndSimulation 

scenario 

Clears  the  priority  event  queue  and 
performs  housekeeping  activities.  See 
Note  1. 

Note  1.  Depending  on  the  graphical  user  interface  design,  this  event  may  be  replaced  by 
different  events  and  assign  the  event  handlers  to  the  individual  objects. 
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APPENDIX  E.  JANUS  CORE  ELEMENTS 


1.  JANUS  CORE  ELEMENTS  OVERALL  STRUCTURE 
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2, 


ENVIRONMENT  AND  WEATHER  DATA  CLASSES 


Environment 
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3. 


TERRAIN  CLASS 
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4 


LINEAR  OBJECT  CLASS 


Linear_object 
^>Width  (meters) 
^>Perpendicu!ar__PLOS 


♦Plos(angle) :  float 
- - 

/  \ 


<o 


0-*  Line_Segment 


\ 


I  Line  Segement  type  = 
! first,  internal,  last 


Future  Versions  of  Janus 
should  be  able  to  represent 
Power  Lines 


River:  Current  Janus  allows  up 
to  20  types  of  Rivers.  Crossing  Time  = 
Record 

Wheeled_time  :  Float 
Tracked_time  :  Float 
Footed__time  :  Float 
Amphibious_time  :  Float 
End  Record 
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5. 


CLOUD  CLASS 


j _ Chemical _  j  OpticaMThermal 

|  ^>Si  gm  a_for_chem_x_di r_at_i m  pact :  float 

!  §£>Si gm a_for_chem_y_dir_atJ  m  pact :  float  '  . .  " 

^>Sigma_fbf_chem_x_dir_at_1 00_sec :  float 
§£>S i g m a_for _c he  m  _y  _d  i r_at_  1 00_s ec :  float 
^HorizontaijgrcwthJactor :  float 
^Verticle_growth_factor :  float 
^Chemical_mass :  float 
^Attack_concentration :  float 

j  ^Dose(Duration)  :  Float 
|  ove_U pdate_Obj() 


There  are  two  kinds  of  clouds : 

Chemical  and  Optical-Thermal.  I 

i 

Optical-Thermal  cl ouds  have  6  ty pes :  H C , 

WP,  Bispectral,  Fog  Oil,  Vehicular  Exhaust, 
and  Dust  They  are  created  by  5  methods : 

Vehicles,  Smoke  Pots,  Grenades,  Large  Are 
a  Dispensers,  and  Artillery.  Current  Janus 
only  models  5  of  the  30  possible 
combinations.  See  pages  E-6  and  pages 
81,82, 131-135  oftheCSDATA  Manual 
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6. 


OPTICAL  THERMAL  CLASS 


Optica!_Thermal 

^>Optica!_dimension_length :  Float 
§J>OpticaJ_dimension_wicfth :  Float 
^>Optical_dimension_thick :  Float 
|  ^Therma!_dimension_length :  Float 
:  ^>T herm al_di m ens i on_w  idth  :  Float 
i  §h>Therma!_dimensionJhick :  Float 

%Opacity() :  Probability 


Vehicular_Exhaust 

Smoke_Pot 

oveJJ  pdate_Obj() 

♦m  oveJJ  pdate_Obj() 

Grenade 
^Distance:  Float 
^Orientation :  Float 

ove_U  pdate_Obj( ) 


Large_Area_Di  spenser 
^>Length_at_wh  i ch_top_stcps_sl opi ng  Float 
^>T otal_downwind_clo udjength  :  Float 
^1  /2_w i dth_of_short_end_of_trapezoi d :  Float 
^>Trapezoid_side_slope :  Float 
^Trapezoid_top_slope :  Float 
^>M ax_1/2J ength_of_di am ond :  Float 
^Initial_diamondJength :  Float 
^Initial_diamond_ht :  Float 
^>Diamond_heightjgrowth_rate :  Float 
!  ^»Diamond_Status :  Boolean 
1  fi^Diamond_wjcorner :  2d  Coord 
!  ^Diamond_s_corner :  2d  Coord 
i  ^>Diamond_e_corner :  2d  Coord 
j  ^ D i a m ond_n_cor ner :  2d  Coord 
;^Diamond_top_eievation :  Float 
|  i  am  ond_bottom_el evati on :  Float 

i  ^>T rapezoid_Status  :  Boolean 
!  rapezoid_se_corner :  2d  Coord 

|  rapezoid_ne_corner :  2d  Coord 

|  rapezoid_top_el  evati  on_east_edge :  Float 

!  ^Trapezoid_bottom_elevation_east_edge :  Float 
'^Rectangle_Status :  Boolean 
^>Rectangle__se_corner :  2d  Coord 
^Rectangle_ne_corner :  2d  Coord 
;  ectangl e__top_el evation :  Float 

^>Rectangle_bottom_elevation :  Float 


ove_U  pdate_Obj  ( ) 


ArtiIlery_Smoke 
§>Coeff_a_l en gt h  :  float 
^>Coeff_a_width :  float 
^>Coeff_a_thick :  float 
^>Coeff_a_heigbt :  float 
^>Coeff_b_length :  float 
^C oeff_b_w idth :  float 
S^CoeffbJhick :  float 
£^Coeff_b_height :  float 
$>C  oeff_t_l ength  :  fl  oat 
^>C oeff_t_w idth  :  float 
^>Coeff_t_thick :  float 
^>Coeff_t_height :  float 
£§>Coeff_p_l  ength :  float 
i^>Coeff_p__width :  float 
Sjp>Coeff_p_thick :  float 
^Coeff_p_heigth :  float 
^Coeff_q_l  ength :  float 
£^C  oeff_q_w  i  dth  :  fl  oat 
§Jp>Coeff_qJhick :  float 
^>Coeff_q_height :  float 
S^CoeffjJength :  float 
§^Coeff_r_width :  float 
£§>Coeff_rJhick :  float 
<%>Coeff_r_height :  float 
^>Coeff_s_l ength :  float 
(%>Coeff_s_width :  float 
i^>Coeff_s_thick :  float 
(^>C oeff_s_hei ght :  float 


oveJJ  pdate_Obj() 


Artillery  can  generate  4  u* 

types  of  douds  (HC,  WP, 

BS,  Dust).  The  algorithm 
for  computing  the  artillery 
smoke  douds  uses  7  sets 
of  coefficients  (A,  B,  T,  P, 

Q,  R,  S).  Each  set  of  the  j 

coefficients  consists  of  4  ; 

attributes  (Length,  Width. 

Thick,  Height).  This  data 
is  used  within  the  Janus 
smoke  model’s 
mathematical  formulas  to 
determine,  over  time,  the  j 

shape  of  the  smoke  doud, 
the  height  of  the  bottom  of 
the  doud  off  the  ground,  an 
d  the  doud  thickness.  The 
data  sources  is  the  US 
Army  Atmospheric  Smoke  | 

Lab.  See  pg  82  of  the 
C SO ATA  Manual.  j 
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7. 


BARRIER  CLASS 
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8. 


MINEFIELD  CLASS 
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9, 


UNIT  CLASS 
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10.  VEHICLE  UNIT  CLASS 


POL  data 


^>tank_size  :  float 
^mov_consumption_rate  :  float 
d|>station_consumption_rate  :  float 
i%>fueljype  :  enum(1-Mogas,  2-Diesel,  3-Aviation) 
^>fueI_amount :  float 


Resupply  ^capability  _data 


%resupply_type  :  enum(1-ammo,  2-Mogas,  3-Diesel,  4-aviation) 
£|>refuel_capacity  :  float 


Work  data 


^>stat_rate  :  float 
^>move_rate  :  float 
i%>prep_rate  :  float 
i^>firing_rate  :  float 


N 


"O 


R  ectangu^r_sold 


4 


Vehicle  Unit 


^>vehicle_num  :  int 
^vehicle  jiame  :  string 
^>max_visibility  :  float 
^>sensor_height  :  float 
if^>crew_s  ize  :  int 
(^>spacejntemal  :  float 
%>symbol_num  :  int 
^>class_sy  mbol_num  :  int 
^>troop_capacity  :  int 
^location  :  location_ty pe 
^destination  :  location_type 
^>speed  :  float 
^>alive  :  bool 

(^>target_list  :  targetJisMy  pe 
<%>side  :  short 
i^>task_force  :  force_type 
^suppressed  :  bool 


Capacity  _data 


^>total_weight  :  float 
^>total_volume  :  float 
§^carry_weight :  float 
^>carry_volume  :  float 


O  pticaLthermaLcontrast 


Chem  data 


^>seff_rec_dose  :  float 
^>current_dose  :  float 
^>incapacit_mean  ;  float 
^>incapacit_sigma  :  float 
^p>death_sigma  :  float 
^>death_mean  :  float 
^>self_recog_resp_time  :  float 
<^>chem_xrnit_f  actor :  float 
^mask_time  :  float 
^>crew_alarm_time  :  float 
^>incapacit_resp_time  :  float 
£^>expirjresp__time  :  float 
^>detector_wait_time  :  float 
^>alarm_concem  :  float 
§>in  MOPP  :  bool 


/ 


\ 


Optical 


^contrast  :  float 


Thermal 


!  ^>exposed_contrast :  float 
^>defilade_contrast :  float 


Functional  characteristics 


i^>laser_designator :  bool 
^>surveillancejype  :  short(0..2) 
^>breach_capability  :  short(0..5) 
'^>firing_ty  pe  :  short(1..3) 


/ 


/ 


\ 


\ 


\ 


surveillance: 

! 

!  0=no  capability 
;  1=chemical  detector 
2=Cdr's  Indep.  Therm  Viewer 


firing: 

1=direct  fire 
2=indirect  fire 
3=direct  and  indirect 


Hbreach: 
0=none 
1  =AVLB 
2=CEV 
3=HV  Armor 
4=LT  Armor 
5=wheeled 
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11.  AIRCRAFT  UNIT  AND  GROUNDVEHICLEJDNIT  CLASSES 
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12.  MOBILE JPLATFORM_SUBSYSTEM  CLASS. 


M  o b  i  I  e_p I  a  tfo  rm_su b syste m 


Direct_Fire_Weapon  j 
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13.  SENSOR  CLASS 
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14.  RADAR  CLASS 


Radar 
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15.  RED  RADAR  CLASS 


Ja  m  me  r_effecti  vene  ss 


!  ^>has_effect :  bool 
j  ^has_effectO 
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16.  MUNITION  TYPE  CLASS 


Janus  currently  only 
models  indirect  fire 
munitions 


Munition 
l^>Range  :  Float 
:^>Time_of_flight :  Float 
i^>Aim_eiTor_range  :  Float 
^>Aim_error_deflection  :  Float 
^>Range_error :  Float 
^>Ballistic_error_deflection  :  Float 
i^>Ballistic_error_range  :  Float 
^*>Angle_of_falM-3  :  Float 
<%>Angle_of_fall_wooded_1-3  :  Float 
^Angle_of_fall_town_1-3  :  Float 
^RAP_Factor :  Float 
^^>Lethal_area  :  2D  Shape 


Smoke  j 

High  Explosive 

*Create_Cloud()  ' 

♦Create_Cloud() 

I  Associated  to  Optical-Thermal  !\ 
Clouds- See  Cloud  Class 


_ FASCAM  | 

^>Mines_per_round  ;  Int 


*Create_Minefield0 


V 


Chemical 


*Cneate_CloudO 


Associated  to 
Chemical 
Clouds,  see 
Cloud  Class 


Improved  Munitions 
i  ^>Bomblet_per_round  :  Int 


_  / 

Associated  to  L>.* 
Minefield  Class 


Terminal  Guided 

Precia'on  Guided 

d^>Submunitions_per_round  :  Int 
§£>Target_acquisition_radius :  Float 
§F>False_target_factor :  Float 
^>Reliability_of_round  :  Float 
§F>Reliability_of_submunition  :  Float 

^>Submunitions_per_round  :  Int 
'^Target_acquisition_radius :  Float 
^>False_taget_factor :  Float 
^>Reliability_of_round  :  Float 
:^>Reliability_of_submunition  :  Float 
^Designator:  Enum 

\  ;  : 

/ 

A _ 


Associated  to  On_Board_Seeker 
Class 
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17.  DIRECTFIREWEAPON  CLASS 
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18.  CURVE  CLASS 


:  DatajDoint 


i  ^>X :  X_type 
%>Y  :  Y_type 


r' 


■n 


(Probability 
PD  Curve  I 


_|  Range, 


_ xjype,  I 

ly_type_  I 
Curve  <- 


A 


ITi 


\  V 


^Band, 


•.Probability. 
Extinction  Coefficient  Curve 


\ 


\ 


\ 


\ 


\ 


X 


\ 


\  Degree, 


[.Floats  J 
SkyJo_Gmd_Curve 


...X... 


tlndex,  Float  , 


Track_Probability_Curve 


Decibel,  Float 


Jammer  effectiveness  Curve 


.  J 


Cycles _per_milliradian,  Mean  | 


Irresolvable Jemp/contrast _ I 

Performance  Curve 
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19.  3D  SHAPE,  2D  SHAPE  and  LINE  SEGMENT  CLASSES 


3D_Shape 

0..* 

2D_Shape 

Rectangular_solid 


{ordered} 
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20.  PROBABILITY,  2D  COORDINATE,  AND  WAYPOINT  DATA  TYPES 


Type  Probability  is  0.0..  1.0 


Type  2d_Coord  =  ^ 

Record 
X :  Float 
Y  :  Float 
End  Record; 


Type  Waypoint  = 

Record 

Origin  :  2d_Coord 
Eariiest_Time_To_Move :  Float 
End  Record; 
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APPENDIX  F.  THE  PSDL  SPECIFICATION  FOR  THE  EXECUTABLE 

PROTOTYPE 


TYPE  event_type 

SPECIFICATION 

END 

IMPLEMENTATION  ada  event_type 
END 

TYPE  event_queue_type 
SPECIFICATION 

OPERATOR  empty_queue 
SPECIFICATION 

OUTPUT  q:  event_queue_type 
END 

END 

IMPLEMENTATION  ada  event_queue_type 
END 

TYPE  statistics_type 

SPECIFICATION 

END 

IMPLEMENTATION  ada  statistics_type 
END 

TYPE  scenario_type 
SPECIFICATION 

OPERATOR  empty_scenario 
SPECIFICATION 

OUTPUT  s:  scenario_type 
END 

END 

IMPLEMENTATION  ada  scenario_type 
END 

TYPE  statistics_request_type 

SPECIFICATION 

END 

IMPLEMENTATION  ada  statistics_request_type 
END 

TYPE  replay_request_type 

SPECIFICATION 

END 

IMPLEMENTATION  ada  replay_request_type 
END 

TYPE  user_interaction_type 
SPECIFICATION 

OPERATOR  stop_simulation 
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SPECIFICATION 

OUTPUT  x:  user_interaction_type 
END 

END 

IMPLEMENTATION  ada  user_interaction_type 
END 

TYPE  locationjiype 

SPECIFICATION 

END 

IMPLEMENTATION  ada  location_type 
END 

TYPE  game_time_type 
SPECIFICATION 

OPERATOR  zero 
SPECIFICATION 

OUTPUT  z :  game_tiine_type 
END 

END 

IMPLEMENTATION  ada  game_time_type 
END 

OPERATOR  gui_3 
SPECIFICATION 

INPUT  statistics:  statistics_type 

INPUT  replay:  location_type 

OUTPUT  scenario:  scenario_type 

OUTPUT  user_interaction :  user_interaction_type 

OUTPUT  replay_request :  replay_request_type 

OUTPUT  statistics_request :  statistics_request_type 

STATES  scenario:  scenario_type  INITIALLY  scenario_type . empty_scenario 
STATES  new_y :  float  INITIALLY  0.0 
STATES  new_x :  float  INITIALLY  0.0 
STATES  first_time:  boolean  INITIALLY  TRUE 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  enter_new_plan_75_74 

VERTEX  get_y_68_67 

VERTEX  get_x_65_64 

VERTEX  get_re_30_29 

VERTEX  get__st_27_26 

VERTEX  edit_plan_24_23 

VERTEX  get_user__in_21_20 

VERTEX  gui_event_monitor__18_17 :  50  MS 

VERTEX  display_st_31__30 

VERTEX  display_re_37_36 

VERTEX  initial_scenario_40_39 

EDGE  new_plan_entered  enter_newjplan_75_7  4  ->  edit_plan_24_23 

EDGE  new_y  get_y_68_67  ->  edit_plan_24__23 

EDGE  new_x  get_x_65_64  ->  edit_plan_24_23 

EDGE  scenario  edit_plan_24_23  ->  edit_plan_24_23 

EDGE  scenario  edit_plan_24_23  ->  EXTERNAL 

EDGE  statistics_request  get_st_27_26  ->  EXTERNAL 

EDGE  replay_request  get_re_30_29  ->  EXTERNAL 


78 


EDGE  user_interaction  get_user_in_21_20  ->  EXTERNAL 
EDGE  statistics  EXTERNAL  ->  display_st_31_30 
EDGE  scenario  initial_scenario_40_39  ->  EXTERNAL 
EDGE  replay  EXTERNAL  ->  display_re_37__36 

EDGE  first_time  initial_scenario_40_39  ->  initial_scenario_40_39 
DATA  STREAM 

new_plan_entered:  boolean 
CONTROL  CONSTRAINTS 

OPERATOR  enter_new_plan_75_74 
OPERATOR  get_y_68_67 
OPERATOR  get_x_65_64 
OPERATOR  get_re_30_29 
OPERATOR  get_st_27_26 
OPERATOR  edit_plan_24_23 

TRIGGERED  BY  ALL  new_plan_entered 
OPERATOR  get__user_in_21_20 
OPERATOR  gui_eventjnonitor_18_17 
PERIOD  300  MS 
FINISH  WITHIN  300  MS 
OPERATOR  display_st_31_30 
OPERATOR  display_re_37_36 
OPERATOR  initial_scenario_40_39 
TRIGGERED  IF  (first_time  -  TRUE) 

END 

OPERATOR  warrior_l 
SPECIFICATION 

STATES  replay_position:  integer  INITIALLY  1 
STATES  replay_request :  replay_request_type  INITIALLY 
replay_request_type . off 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  gui_3_2 
VERTEX  post_processor_6_5 
VERTEX  janus_9_8 
VERTEX  j aaws_12_ll 

EDGE  replay__position  jaaws_12_ll  ->  jaaws_12_ll 
EDGE  replay__request  jaaws_12_ll  ->  jaaws_12_ll 
EDGE  scenario  gui_3_2  ->  janus_9_8 
EDGE  user^interaction  gui_3_2  ->  janus_9_8 
EDGE  replay_request  gui_3__2  ->  jaaws_12_ll 
EDGE  statistics_request  gui_3_2  ->  post__processor_6_5 
EDGE  statistics  post_processor_6_5  ->  gui_J3_2 
EDGE  replay  jaaws_12_ll  ->  gui_3_2 
EDGE  simulation_history  janus^9_8  ->  jaaws_12_ll 
EDGE  simulation_hi story  janus_9_8  ->  post_processor_6_5 
DATA  STREAM 

scenario:  scenario__type, 
user__interaction :  user_interact ion_type , 
statistics_request :  statigtics_request_type, 
statistics:  statistics_type, 
replay:  location__type, 

simulation_history :  sequence [e:  event_type] 

CONTROL  CONSTRAINTS 
OPERATOR  gui_3_2 
OPERATOR  post_processor_6_5 

TRIGGERED  BY  ALL  statistics_request 
OPERATOR  janus_9_8 
OPERATOR  jaaws_12_ll 

TRIGGERED  IF  (sequence . length (simulation_history)  >  0) 

END 
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OPERATOR  enter_new_plan_75 
SPECIFICATION 

OUTPUT  new_plan_entered :  boolean 
END 

IMPLEMENTATION  tae  enter_new_plan_75 
END 

OPERATOR  get_y_68 
SPECIFICATION 

OUTPUT  new_y:  float 
END 

IMPLEMENTATION  tae  get_y_68 
END 

OPERATOR  get_x_65 
SPECIFICATION 

OUTPUT  new_x:  float 
END 

IMPLEMENTATION  tae  get_x_65 
END 

OPERATOR  get_re_30 
SPECIFICATION 

OUTPUT  replay_request :  replay_request_type 
END 

IMPLEMENTATION  tae  get_re_30 
END 

OPERATOR  get_st_27 
SPECIFICATION 

OUTPUT  statistics__request :  statistics_request_type 
END 

IMPLEMENTATION  tae  get_st_27 
END 

OPERATOR  edit_plan_24 
SPECIFICATION 

INPUT  new_plan_entered:  boolean 
INPUT  new_y:  float 
INPUT  new_x:  float 
INPUT  scenario:  scenario_type 
OUTPUT  scenario:  scenario_type 
END 

IMPLEMENTATION  ada  edit_plan_24 
END 

OPERATOR  get_user_in__21 
SPECIFICATION 

OUTPUT  user_interaction:  user_interaction_type 
END 

IMPLEMENTATION  tae  get_user_in_21 
END 

OPERATOR  gui_event_monitor_18 
SPECIFICATION 
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MAXIMUM  EXECUTION  TIME  50  MS 
END 

IMPLEMENTATION  ada  gui__event_monitor_18 
END 

OPERATOR  display_st_31 
SPECIFICATION 

INPUT  statistics:  statistics__type 
END 

IMPLEMENTATION  tae  display_st_31 
END 

OPERATOR  display_re_37 
SPECIFICATION 

INPUT  replay:  location_type 
END 

IMPLEMENTATION  tae  display_re J37 
END 

OPERATOR  initial_scenario_40 
SPECIFICATION 

INPUT  first_time:  boolean 
OUTPUT  scenario:  scenario_type 
OUTPUT  first__time:  boolean 
END 

IMPLEMENTATION  ada  initial_scenario_4 0 
END 

OPERATOR  post__processor__6 
SPECIFICATION 

INPUT  statistics_request :  statistics_request_type 
INPUT  Simula tion_history :  sequence [e:  event_type] 

OUTPUT  statistics:  statistics_type 
END 

IMPLEMENTATION  ada  post_processor_6 
END 

OPERATOR  janus_9 
SPECIFICATION 

INPUT  scenario:  scenario_type 

INPUT  user_interaction :  user_interaction_type 
OUTPUT  simulation_history :  sequence[e:  event_type] 

STATES  game_time:  game_time_type  INITIALLY  game_time_type .  zero 
STATES  event_q:  event_queue_type  INITIALLY  event_queue__type .  empty 
END 

IMPLEMENTATION 

GRAPH 

VERTEX  create__new_events_114_113 
VERTEX  do_event_66_65 :  100  MS 
VERTEX  create_user_event__69_68 

EDGE  game_time  do_event_66_65  ->  create_user_event_69_68 
EDGE  game_time  do_event_66_65  ->  do_event_66_65 
EDGE  event_q  do_event_66_65  ->  do_event_66_65 
EDGE  simulation__history  do_event_66_65  ->  do_event_66_65 
EDGE  event_q  create_new_events_114_113  ->  do_event_66_65 
EDGE  game_time  do_event_66_65  ->  create_new_events_114_113 
EDGE  event_q  do_event_66_65  ->  create_new_events_114_113 
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EDGE  event_q  create_user_event_69__68  ->  do_event_66_65 
EDGE  event_q  do__event_66_65  ->  create_user_event_69__68 
EDGE  scenario  EXTERNAL  ->  create_new_events_114_113 
EDGE  simulation__history  do_event_66_65  ->  EXTERNAL 
EDGE  user_interaction  EXTERNAL  ->  create_user_event_69_68 
CONTROL  CONSTRAINTS 

OPERATOR  create_new_events_114_113 

TRIGGERED  IF  not ( scenario_type . is_empty (scenario)  ) 
OPERATOR  do_event_66_65 

TRIGGERED  IF  not (event_queue_type . is__empty (event_q) ) 
PERIOD  1000  MS 

OPERATOR  create__user_event_69_68 

TRIGGERED  IF  (user_interaction  =  stop_simulation) 

END 

OPERATOR  create_new_events_114 
SPECIFICATION 

INPUT  game_time:  game_time_type 
INPUT  event_q:  event_queue__type 
INPUT  scenario:  scenario_type 
OUTPUT  event_q:  event__queue_type 
END 

IMPLEMENTATION  ada  create_new_events_l 1 4 
END 

OPERATOR  do_event_66 
SPECIFICATION 

INPUT  game_time :  game_time_type 

INPUT  simulationjiistory :  sequence [e:  event_type] 

INPUT  event_q:  event_queue_type 
OUTPUT  game__time:  game_time_type 
OUTPUT  event_q:  event_queue_type 

OUTPUT  simulation_history :  sequence [e:  event__type] 

MAXIMUM  EXECUTION  TIME  100  MS 
END 

IMPLEMENTATION  ada  do_event_66 
END 

OPERATOR  create_user_event_69 
SPECIFICATION 

INPUT  game_time:  game_time_type 
INPUT  event_q:  event__queue_type 
INPUT  user_interaction:  user_interaction_type 
OUTPUT  event_q:  event_queue_type 
END 

IMPLEMENTATION  ada  create_user_event_69 
END 

OPERATOR  jaaws_12 
SPECIFICATION 

INPUT  replay_position:  integer 

INPUT  replay_request :  replay_request_type 

INPUT  simulation_history :  sequence [e:  event_type] 

OUTPUT  replay_position:  integer 
OUTPUT  replay_request :  replay_request_type 
OUTPUT  replay:  location_type 
END 

IMPLEMENTATION  ada  jaaws_12 
END 
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APPENDIX  G.  THE  ADA/C  SOURCE  CODE  OF  THE  PROTOTYPE 


1.  WARRIOR JLADB 

with  WARRI0R_1_STATIC_SCHEDULERS;  use  WARRI0R_1_STATIC_SCHEDULERS ; 
with  WARRI0R_1_DYNAMIC_SCHEDULERS;  use  WARRI0R_1_DYNAMIC_SCHEDULERS ; 
with  CAPS_HARDWARE_MODEL;  use  CAPS_HARDWARE__MODEL; 
procedure  WARRI0R__1  is 
begin 

init_hardware_model ; 
start_static_schedule; 
start_dynamic_schedule; 
end  WARRI0R_1; 

2.  WARRIOR_l_DRIVERS.ADS 

package  WARRI0R_1_DRIVERS  is 

procedure  POST_PROCESSOR_6_5_DRIVER; 
procedure  JAAWS_12_11_DRIVER; 
procedure  ENTER_NEW_PLAN_75_74_DRIVER; 
procedure  GET_Y_68_67_DRIVER; 
procedure  GET_X_65_64_DRIVER; 
procedure  GET_RE_30_29_DRIVER; 
procedure  GET_ST_27_26_DRIVER; 
procedure  EDIT_PLAN_24_23_DRIVER; 
procedure  GET_USER_IN_21_20_DRIVER; 
procedure  GO I_EVENT_MON I T0R_1 8_1 7_DRI VER ; 
procedure  DISPLAY_ST_31_30_DRIVER; 
procedure  DISPLAY_RE_37_36_DRIVER; 
procedure  INITIAL_SCENARIO_40_39_DRIVER; 
procedure  CREATE_NEW_EVENTS_114_113_DRIVER; 
procedure  DO_EVENT_66_65_DRIVER; 
procedure  CREATE_USER_EVENT_69_68_DRIVER; 
end  WARRI0R_1_DRIVERS; 

3.  WARRIOR1DRIVERS.ADB 

—  with/use  clauses  for  atomic  components, 
with  EVENT_TYPE_PKG ;  use  EVENT_TYPE_PKG; 
with  EVENT_QUEUE_TYPE_PKG;  use  EVENT_QUEUE_TYPE_PKG; 
with  STATISTICS_TYPE_PKG;  use  STATISTICS_TYPE_PKG; 
with  SCENARIO_TYPE_PKG;  use  S CENAR 1 0_T YPE_PKG ; 

with  STAT I ST I C S_REQUE S T_T YPE_PKG ;  use  STATISTICS_REQUEST_TYPE_PKG; 

with  REPLAY_REQUEST_TYPE_PKG;  use  REPLAY__REQUEST_TYPE_PKG; 

with  USER_INTERACTION_TYPE_PKG;  use  USER_INTERACTION_TYPE_PKG; 

with  LOCAT ION_T Y PE_PKG ;  use  LOCAT I ON_TYPE_PKG ; 

with  GAME_TIME_TYPE_PKG;  use  GAME_TIME_TYPE_PKG; 

with  ENTER_NEW_PLAN_75_PKG;  use  ENTER_NEW_PLAN_75_PKG; 

with  GET_Y_68_PKG;  use  GET_Y_68_PKG; 

with  GET_X_65_PKG;  use  GET_X_65_PKG; 

with  GET_RE_3 0_PKG ;  use  GET_RE_30_PKG; 

with  GET_ST_27_PKG;  use  GET_ST_27_PKG; 

with  EDIT_PLAN_24_PKG;  use  EDIT_PLAN_24_PKG; 

with  GET_USER_IN_21_PKG;  use  GET_USER_IN_21_PKG; 

with  GUI_EVENT_M0NIT0R_18_PKG;  use  GUI_EVENT_M0NIT0R_18_PKG; 

with  D1SPLAY_ST_3 1_PKG ;  use  DISPLAY_ST_31_PKG; 

with  DISPLAY_RE_37_PKG;  use  DISPLAY_RE_37_PKG; 

with  INI T I AL_SCENARI 0_4  0_PKG ;  use  INITIAL_SCENARIO_40_PKG; 

with  POST_PROCESSOR_6_PKG;  use  P0ST_PR0CESS0R_6_PKG; 

with  CREATE_NEW_EVENTS_114_PKG;  use  CREATE  NEW  EVENTS  114  PKG; 
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with  D0_EVENT_6 6_PKG ;  use  DO_EVENT_66_PKG; 

with  CREATE_USER_EVENT_69_PKG;  use  CREATE_USER_EVENT_69_PKG; 
with  JAAWS_12_PKG;  use  JAAWS_12_PKG; 

—  with/use  clauses  for  generated  packages. 

with  WARRI0R_1_EXCEPTI0NS;  use  WARRI0R_1_EXCEPTI0NS ; 
with  WARRI0R_1_STREAMS;  use  WARRI0R_1_STREAMS ; 
with  WARRI0R_1JTIMERS;  use  WARRI0R_1_TIMERS; 

with  WARRI0R_1_INSTANTIATI0NS ;  use  WARRI0R_1_INSTANTIATI0NS ; 

—  with/use  clauses  for  CAPS  library  packages, 
with  DS_DEBUG_PKG;  use  DS_DEBUG_PKG; 

with  PSDL_STREAMS;  use  PSDL_STREAMS ; 
with  PSDL_STRING_PKG;  use  PSDL_STRING_PKG; 
with  PS DL_T IMERS ; 
package  body  WARRI0R_1_DRIVERS  is 

procedure  POST_PROCESSOR_6_5_DRIVER  is 
LV_STATISTICS_REQUEST  : 

STATISTICS_REQUEST_TYPE_PKG.STATISTICS_REQUEST_TYPE; 
LV_SIMULATION_HI STORY  :  EVENT_TYPE_SEQUENCE ; 

LV_STATISTICS  :  STATISTICS_TYPE__PKG . STATISTICS_TYPE; 

EXCEPT ION_HAS_OCCURRED :  BOOLEAN  :=  FALSE; 

EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_STATISTICS_REQUEST_POST_PROCESSOR_6_5.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads, 
begin 

DS_STATISTICS_REQUEST_POST_PROCESSOR_6_5 . BUFFER . READ ( 

LV_STATISTICS_REQUEST) ; 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFER_UNDERFLOW ( "STATISTICS  JREQUEST_POSTPROCESSOR_6_5" 

"POSTPROCESSOR'S") 

end; 

begin 

DS_SIMULATION_HISTORY_POST_PROCESSOR_6__5  .  BUFFER .  READ  ( 

LV_SIMULATION_HISTORY) ; 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW ( "SIMULATION_HISTORY_POST_PROCESSOR_6_5" 

" POS T_PROCE S SOR_ 6_5 " ) 

end; 


—  Execution  trigger  condition  check, 
if  True  then 
begin 

P0ST_PR0CESS0R_6 { 

STATISTICS_REQUEST  =>  LV_STATISTICS_REQUEST, 

S I  MU  L  AT  I  ON__H  1ST  OR  Y  =>  LV_SIMULATION_HISTORY, 

STATISTICS  =>  LV_STATISTICS) ; 
exception 

when  others  -> 

DS_DEBUG . UNDECLARED_EXCEPTION ( "POST_PROCESSOR_6_5" ) ; 
EXCE PT I ON_HAS_OCCURRE D  :=  true; 

EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 
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—  Exception  Constraint  translations. 


—  Other  constraint  option  translations. 

—  Unconditional  output  translations . 
if  not  EXCEPTIONJHAS_OCCURRED  then 

begin 

DS_STATISTICS_DISPLAY_ST_31_30  .  BUFFER .  WRITE  (LV_STATISTICS)  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("STATISTICS_DISPLAY_ST_31_30”, 

,,POST_PROCESSOR_6_5M ) 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCE PT I ON_HAS_OCCURRE D  then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 

" POST_PROCES  SOR_6_5 " , 

PSDL_EXCEPTION* IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  POST  PROCESSOR  6  5  DRIVER; 


procedure  JAAWS_12_11_DRIVER  is 

LV_SIMULATION_HISTORY  :  EVENT_TYPE_SEQUENCE ; 

LV_REPLAY_POSITION  :  INTEGER; 

L V_RE P LAY_RE QUEST  :  REPLAY_REQUEST_TYPE_PKG.REPLAY_REQUEST_TYPE; 
LV  REPLAY  :  LOCATION  TYPE  PKG. LOCATION  TYPE; 


EXCEPT ION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPT  ION__I  D :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads. 


begin 

DS_REPLAY__P0SITI0N_JAAWS_12___11.  BUFFER.  READ  (LV_REPLAY_POSITION)  ; 
exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG .  BUFFERJJNDERFLOW  ( "REPLAY_POSITION_JAAWS_12_ll" , 

" JAAWS_12_11" )  ; 

end; 

begin 

DS_REPLAYJREQUEST_JAAWS_12_11. BUFFER. READ  (LV_REPLAY_RE QUEST)  ; 
exception 

when  BUFFER_UNDERFLOW  -> 

DS  JDEBUG . BUFFER_UNDERFLOW ( "REPLAY_REQUEST_JAAWS_12_11 " , 

"JAAWS_12JL1")  ; 

end; 

begin 

D  S  _S  I  MU  LAT I  ON_H  1ST  OR  Y_  JAAW  S_1 2_1 1 .  BUFFER.  READ  (LV_SIMULATION_HISTORY) 
exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFERJJNDERFLOW ( "SIMULATION_HISTORY_JAAWS  JL2_11" , 

"JAAWS_12_JL1")  ; 

end; 


—  Execution  trigger  condition  check. 

if  (LENGTH (LV_SIMULATION_HISTORY)  >  0)  then 
begin 
JAAWS_12  ( 

S I MU LAT I ON_H I STORY  =>  LV_SIMULATION_HISTORY, 
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REPLAY_POSITION  =>  LV_REPLAY_POSITION, 
REPLAY_REQU£ST  =>  L  V_RE P LA Y_RE  QUE S T , 

REPLAY  ->  LV_REPLAY) ; 
exception 

when  others  => 

DS_DEBUG .  UNDECLARED_EXCEPTION  ( "  JAAWS_12_11 "  )  ; 
EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCE  PT I  ON__I  D  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 


—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRE D  then 

begin 

DS_REPLAY_P0SITI0N_JAAWS_12_11 .BUFFER. WRITE (LV_REPLAY_POSITION) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG  .  BUFFER_OVERFLOW  (  MREPLAY_P0SITI0N_JAAWS_12_11" , 

"JAAWS_12_11")  ; 

end; 
end  if; 

if  not  EXCEPT  I ON_HASJOCCURRED  then 
begin 

DS_REPLAY_REQUEST_JAAWS_12_11  .BUFFER.  WRITE  (LV_REPLAY_REQUEST)  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  (  ”REPLAY_REQUEST_JAAWS_12_1 1  "  , 

"JAAWS_12_11")  ; 

end ; 
end  if; 

if  not  EXCEPT I ON_HAS_OCCURRED  then 
begin 

DS_REPLAY_DISPLAY_RE_37_36  .  BUFFER .  WRITE  (LV_REPLAY)  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("REPLAY_DISPLAY_RE_37_3  6,f,  "  JAAWS_12_11" ) 

end; 
end  if; 


—  PSDL  Exception  handler. 

if  EXCEPT I ON_HAS_OCCURRED  then 
DS_DEBUG .  UNHANDLED_EXCEPTION .{ 
"JAAWS_12_11", 

PSDL_EXCEPTIONf  IMAGE  (EXCEPTION_ID)  )  ; 
end  if; 

end  JAAWS  12  11  DRIVER; 


procedure  ENTER_NEW_PLAN_75J74_DRIVER  is 
LV_NEW_PLAN_ENTERED  :  BOOLEAN; 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  FALSE; 
EXCEPTION  JED:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads. 
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—  Execution  trigger  condition  check. 

if  ENTER_NEW_PLAN_7  5_PKG.has_new_input  then 
begin 

ENTER_NEW__PLAN_7  5  ( 

NEW_PLANJENTERED  =>  LV_NEW_PLAN_ENTERED)  ; 
exception 

when  others  => 

DS__DEBUG .  UNDECLARED_EXCEPTION  (  "ENTER_NEW_PLAN_7 5  J7 4")  ; 
EXCEPT I ON_HAS_OC  CURRE D  :=  true; 

EXCEPT  I  ON__ID  :=  UNDECLARED_ADAJEXCEPTION; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 


—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCE PT I ON_HAS_OCCURRED  then 

begin 

DS_NEW_PLAN_ENTERED_EDIT_PLAN_24_23  .  BUFFER.  WRITE  ( 

LV_NEW_PLAN_ENTERED) ; 

exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  ( "NEW_PLAN_ENTERED_EDIT_PLAN_24_23"  , 

”ENTER_NEW_PLAN_7  5_7  4  " ) 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCE  PT I ON_HAS_OC CURRE  D  then 
DS_DEBUG . UNHANDLE D_EXCEPT I ON ( 

,fENTER_NEW_PLAN_7  5_7  4  " , 

PSDL_EXCEPTIONf  IMAGE  (EXCEPTION_ID)  )  ; 
end  if; 

end  ENTER  NEW  PLAN  75  74  DRIVER; 


procedure  GET_Y_68_67_DRIVER  is 
LV_NEW_Y  :  FLOAT; 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  :=  FALSE; 
EXCEPTION_ID :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads. 

—  Execution  trigger  condition  check, 
if  GET_Y_68_PKG.has_new_input  then 
begin 
GET_Y_68 ( 

NEW_Y  =>  LV_NEW_Y) ; 
exception 

when  others  => 

DS_DEBUG .  UN  DECLARE  D_EXCE  PT  I  ON  (  ”GET_Y__68_67  "  )  ; 
EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCEPT ION_ID  :=  UN DECLARE D_ADA_EXCEPT ION; 

end; 

else  return; 
end  if; 
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—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRE D  then 

begin 

DS_NEW_Y_EDIT_PLAN_24_23 .BUFFER. WRITE {LV_NEW_Y) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BU  FFER_OVERFLOW { M NE W_Y_E  D I T_P  L AN_2  4  JZ  3 " ,  nGET_Y_68_67 " ) ; 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPT  I  ON__HAS__OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION  { 

"GET_Y_68_67 " , 

PSDL_EXCEPTION ’ IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  GET  Y  68  67  DRIVER; 


procedure  GET_X_65_64_DRIVER  is 
LV_NEW_X  :  FLOAT; 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  FALSE; 

EXCEPTIONAL:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads . 

—  Execution  trigger  condition  check, 
if  GET_X_65_PKG. has_new_input  then 

begin 
GET_X_65 ( 

NEW_X  =>  LV_NEW_X); 
exception 

when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION ( "GET_X_65_64") ; 

EXCEPT I ON_HAS_OCCURRED  :  =  true; 

EXCEPT I ON_ID  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRE D  then 

begin 

DS_NEW_X_EDIT_PLAN_24_23 .BUFFER. WRITE (LV_NEWJ() ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW ("NEW_X_EDIT_PLAN_24_23",  nGET_X_65_64 " ) ; 

end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION  HAS  OCCURRED  then 
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DS_DEBUG . UNHANDLED_EXCEPTION ( 
"GET_X_65_64", 

PSDL_EXCEPTION *  IMAGE  { EXCEPT I ON_ID)  )  ; 
end  if; 

end  GET  X  65  64  DRIVER; 


procedure  GETJRE_30_29_DRIVER  is 

LV_REPLAY_REQUEST  :  REPLAY_REQUEST_T.YPE  JPKG .  REPLAYJREQUESTJTYPE  ; 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  :=  FALSE; 

EXCEPTI ON_I D :  PS  DL_EXCE  PT I ON ; 
begin 

—  Data  trigger  check s. 


—  Data  stream  reads. 

—  Execution  trigger  condition  check, 
if  GET_RE__30_PKG.has_new_input  then 

begin 
GET_RE_3  0 { 

RE PLAY_RE QUEST  =>  LV_REPLAY_RE QUEST) ; 
exception 

when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION (,,GET_REJ30_29") ; 
EXCEPTION  JIAS_OCCURRED  ;=  true; 

EXCEPT  ION__ID  :==  UNDECLARE D_ADA_EXCEPT I ON; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 


—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT ION_HAS_OCCURRED  then 

begin 

DS_REPLAY_REQUEST_JAAWS_12_11. BUFFER.  WRITE  (LVJREPLAY_REQUEST)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS  JDEBUG . BUFFERJDVERFLOW ( "REPLAY  JREQUEST_ JAAWS  JL2_1 1 " , 

"GET_RE_30_29") ; 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCE PT I ON_HAS_OCCURRE D  then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 

" GET_RE_3  0_2  9 " , 

PSDL_EXCEPTIONT IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  GET  RE  30  29  DRIVER; 


procedure  GET_ST_27_26_DRIVER  is 
LV_STATISTICS_REQUEST  : 

STATISTICS_REQUEST_TYPE_PKG. STAT I ST I CS  JREQUE ST  JTYPE 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  :=  FALSE; 

EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 
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Data  stream  reads. 


—  Execution  trigger  condition  check, 
if  GET_ST_27_PKG .  has_new__input  then 
begin 
GET_ST_27 ( 

STATISTICS_REQUEST  =>  LV_STATISTICS_REQUEST) ; 
exception 

when  others  => 

DS_DEBUG . UNDECLARED_EXCEPTION ( "GET_ST_27_2 6" ) ; 

EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCEPT ION_ID  :=  UN DE C L AR E D_ADA_E X C E P T I ON ; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRED  then 

begin 

DS_STATISTICS_REQUEST_POST_PROCESSOR_6_5 . BUFFER . WRITE  ( 

LV_STATISTICS_REQUEST) ; 

exception 

when  BUFFERJ3VERFL0W  => 

DS_DEBUG.BUFFER_OVERFLOW ( " STATIST I CS_REQUEST_POST_PROCESSOR_6_5" , 

"GET_ST_27_26") ; 

end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCE PT I ON_HAS_OCCURRE D  then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 

"GET_ST_27_26M, 

PSDL_EXCEPTION' IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  GET  ST  27  26  DRIVER; 


procedure  EDIT_PLAN_24_23_DRIVER  is 
LV_NEW_PLAN_ENTERED  :  BOOLEAN; 

LV_NEW_Y  :  FLOAT; 

LV_NEW_X  :  FLOAT; 

LV__SCENARIO  :  SCENARIOJTYPE_PKG. SCENARIO  JTYPE; 

EXCEPT I ON_HAS_OCCURRED :  BOOLEAN  ;=  FALSE; 

EXCEPT I ON_ID :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_NEW_PLAN_ENTERED_EDIT_PLAN_24_23  .NEWJDATA)  then 
return; 
end  if; 

—  Data  stream  reads, 
begin 

DS_NEW_PLANJENTERED_EDIT_PLAN_24_23  .  BUFFER .  READ  (LV_NE PL AN_ENT ERE D)  ; 
exception 

when  BU F FE R_UN DE R FLOW  => 

DS_DEBUG  .  BUFFERJJNDERFLOW  (  "NEW_PLAN_ENTERED_EDIT  PLAN  24  23 M  , 
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"EDIT_PLAN_24_23")  ; 

end; 

begin 

DS_NEW_Y_EDIT_PLAN_24_23  .  BUFFER.  READ  (LV_NEW_Y)  ; 
exception 

when  BUFFERJJNDERFLOW  => 

DS_DEBUG .  BUFFERJJNDERFLOW  (  "NEW_Y_EDIT_PLAN_2  4_2 3 11 , 

"EDIT_PLAN_2  4_23  " )  ; 

end; 

begin 

DS_NEW_X_EDIT_PLAN_24_2 3  .BUFFER. READ  (LV__NEW_X)  ; 
exception 

when  BUFFERJJNDERFLOW  => 

DS_DEBUG . BUFFER_UNDERFLOW ( "NEW_X_EDIT_PLAN_24_23" , 

"EDITJPLAN_24_23") ; 

end; 


begin 

DS_SCENARIO_EDIT_PLAN_24_2 3  .BUFFER.  READ  (LV_SCENARIO)  ; 
exception 

when  BUFFERJJNDERFLOW  => 

DS_DEBUG . BUFFERJJNDERFLOW ( "SCENARIO _EDIT_PLAN_24_23 " , 

"EDIT_PLAN_24_23 M )  ; 

end; 


-  Execution  trigger  condition  check, 
if  True  then 
begin 

EDIT_PLAN_2  4  ( 

NEW_PLAN_ENTERED  =>  LV_NEW_PLAN_ENTERED, 

NEW_Y  =>  LV_NEW_Y, 

NEW_X  =>  LV_NEW_X , 

SCENARIO  =>  LV_SCENARIO ) ; 
exception 

when  others  => 

DS_DEBUG .  UNDECLARED_EXCEPTION  ( "EDIT  J>LAN_24_23" )  ; 
EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPT ION_ID  UNDECLARE D_ADA_EXCEPT ION; 

end; 

else  return; 
end  if; 


-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

-  Unconditional  output  translations, 
if  not  EXCEPT I ON_HASJJCCURRED  then 

begin 

DS_SCENARIO__CREATE_NEW_EVENTS_114_113  .BUFFER.  WRITE  (LV_SCENARIO)  ; 
exception 

when  BUFFER_OVERFLOW  =:> 

DS_DEBUG .  BUFFERjDVERFLOW  ( "SCENARIO_CREATE_NEWJEVENTS_114_113  "  , 

"EDIT_PLAN_2  4_23 " ) 

end; 

begin 

DS_SCENARIO_EDIT_PLAN_24_23  .BUFFER.  WRITE (LV_SCENARIO) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS__DEBUG . BUFFERjDVERFLOW ( "SCENARIO_EDIT_PLAN_24_23" , 

"EDIT_PLAN_24__23  " )  ; 

end; 
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end  if; 


—  PSDL  Exception  handler. 

if  EXCE PT I ON__HAS_OCCURRED  then 
DS_DEBUG . UNHANDLE D_EXCEPT ION ( 
"EDIT_PLAN_2  4_2  3 " , 

PSDL^EXCEPTION' IMAGE (EXCEPTION_ID) ) ; 
end  if; 

end  EDIT  PLAN  24  23  DRIVER; 


procedure  GET_USER_IN_21_20_DRIVER  is 

LV_USER_INTERACTION  :  USER_INTERACTION_TYPE_PKG. USER_INTERACTION_TYPE; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads. 

—  Execution  trigger  condition  check. 

if  GET_USER_IN_21J?KG.has_new_input  then 
begin 

GET_USER_IN_21 ( 

USER_INTERACTION  =>  LV_USER_INTERACTION) ; 
exception 

when  others  => 

DS_DEBUG . UNDECLARED_EXCEPTION ( MGET_USER_IN_2 1_20  " ) ; 

EXCE PTION_HAS_OCCURRE D  :=  true; 

EXCEPT I ON_ID  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRED  then 

begin 

DS_USER_INTERACTION_CREATE_USER_EVENT_69_68 .BUFFER. WRITE ( 

LV_USER_INTERACTION) ; 

exception 

when  BUFFER_OVERFLOW  => 

DS^DEBUG . BUFFER_OVERFLOW ( 

"USER__INTERACTION_CREATE_USER_EVENT_69_68",  MGET_USER_IN_21_20" ) 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPT I ON_HAS_OCCURRED  then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 

"GET__USER_IN_2 1_2  0  "  f 

PSDL_EXCEPTION' IMAGE (EXCEPTION_ID) ) ; 
end  if; 

end  GET  USER  IN  21  20  DRIVER; 


procedure  GUI_EVENT_MONITOR_18_17_DRIVER  is 
EXCEPTION  HAS  OCCURRED:  BOOLEAN  :=  FALSE; 
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EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads. 

—  Execution  trigger  condition  check, 
if  True  then 

begin 

GUI_EVENT_M0NIT0R_18 ; 
exception 

when  others  -> 

DS_DEBUG.  UNDECLARED_EXCEPTION  (  "GUI_EVENT_M0NIT0R_1 8_17 " )  ; 
EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCE  PT I  ON_I  D  :=  UN  DECLARE  D__ADA_EXCE  PT I  ON ; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations . 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations. 

—  PSDL  Exception  handler. 

if  EXCEPT I ON_HAS_OCCURRED  then 
DS_DEBUG . UNHANDLE D_EXCEPT ION ( 

"GUI_EVENT_M0NIT0R_1 8_1 7 " , 

PSDL_EXCEPTIONT IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  GUI  EVENT  MONITOR  18  17  DRIVER; 


procedure  DISPLAY_ST_31_30_DRIVER  is 

LV_STAT I ST I CS  :  STATISTICS_TYPE_PKG.STATISTICS_TYPE; 

EXCEPT  I  ON__HAS_OCCURRED :  BOOLEAN  FALSE; 

EXCEPT I ON_ID :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads, 
begin 

DS_STATISTICS_DISPLAY_ST_31_30  . BUFFER.  READ  (LV_STATISTICS)  ; 
exception 

when  BUFFE ROUNDER FLOW  => 

DS_DEBUG .  BUFFER_UNDERFLOW  (  "STATISTICS_DISPLAY__ST__31_30" , 

" D I S PLAY_ST_3 1_3 0 " ) 

end; 

—  Execution  trigger  condition  check, 
if  True  then 

begin 

DISPLAY_ST_31 ( 

STATISTICS  =>  LV_STATISTICS) ; 
exception 

when  others  => 

DS_DEBUG. UNDECLARE D_EXCEPT I ON ( "DISPLAY_ST_31_30n ) ; 

EXCEPT ION_HASJOCCURRED  :  =  true; 

EXCEPT ION_ID  :=  UN DE C LARE D_ADA_EXCE PT I ON ; 

end; 

else  return; 
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end  if; 


--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations. 

—  PSDL  Exception  handler. 

if  EXCE PT ION_HAS_OCCURRE D  then 
DS_DEBUG. UNHANDLED_EXCEPTION ( 

" DI S  PLAY_ST_3 1_3  0 " , 

PSDL_EXCEPTION? IMAGE (EXCEPTION_ID) ) ; 
end  if; 

end  DISPLAY  ST  31  30  DRIVER; 


procedure  DISPLAY_RE_37_36_DRIVER  is 

LV_REPLAY  :  LOCAT ION  _JTYPE_PKG. LOCATION  JTYPE; 

EXCEPT  I  ON_HAS__OCCURRED  :  BOOLEAN  :=  FALSE; 

EXCEPTION_ID :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads, 
begin 

DS_REPLAY_DISPLAY_RE_37_36 . BUFFER . READ (LV_RE PLAY) ; 
exception 

when  BU FFER_UN DER FLOW  => 

DS_DEBUG . BU  FFER_UNDERFLOW ( "RE  PLAY_DI S PLAY_RE_3 7_3  6 " , 

" DI S PLAY_RE_3 7__3  6  "  ) 

end; 

—  Execution  trigger  condition  check, 
if  True  then 

begin 

DISPLAY_RE_37 ( 

REPLAY  =>  LV_REPLAY) ; 
exception 

when  others  => 

DS_DEBUG . UNDECLARE D_EXCEPT ION ( "DISPLAY_RE_37_3  6" )  ; 

EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCEPT I ON_ID  UNDECLARE D_ADA_EXCEPT I ON; 

end; 

else  return; 
end  if; 

--  Exception  Constraint  translations . 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations. 

—  PSDL  Exception  handler. 

if  EXCE  PT I ON_HAS_OCCURRED  then 
DS_DEBUG . UNHANDLED^EXCEPTION ( 

"DISPLAY_RE_37_36", 

PSDL_EXCEPTION' IMAGE ( EXCEPT I ON_ID) ) ; 
end  if; 

end  DISPLAY  RE  37  36  DRIVER; 
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procedure  INITIAL_SCENARIO_4  0_39_DRIVER  is 

LV_SCENARIO  :  SCENARIOJTYPEJPKG . SCENARIOJTYPE ; 
LV  FIRST  TIME  :  BOOLEAN; 


EXCEPTION  JIASJDCCURRED :  BOOLEAN  :=  FALSE; 
EXCEPTION_ID :  PSDL ^EXCEPTION ; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads. 


begin 

DS_FIRST_TIME_INITIAL_SCENARIO_40J3 9.  BUFFER.  READ  (LV_FIRST_TIME)  ; 
exception 

when  BUFFERJJNDERFLOW  => 

DSJDEBUG.  BUFFERJJNDERFLOW  (  MFIRST_TIME_INITIAL_SCENARIO_40_39” , 

"INITIAL  SCENARIO  40  39") 


end; 


—  Execution  trigger  condition  check, 
if  {LV_FIRST__TIME  =  true)  then 
begin 

INITIAL_SCENARIO_40 ( 

SCENARIO  =>  L V_S CEN AR 1 0 , 

FIRST_TIME  =>  LV_FIRST_TIME) ; 
exception 

when  others  => 

DS  JDEBUG .  UNDECLARE  D_EXCEPT  I  ON  (  "INITIAL_SCENARIO_4  0_39" )  ; 
EXCEPT  I  ON  JIAS  JDCCURRE  D  :=  true; 

EXCEPT  ION__ID  :=  UNDE  CLARE  D_ADA  JEXCE  PT I ON ; 

end; 

else  return; 
end  if; 


—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations . 
if  not  EXCE PT I ON  JIAS  JDCCURRE D  then 

begin 

DSJSCENARI0_CREATEJNEW_EVENTS_114_113  .  BUFFER . WRITE (LV_SCENARIO)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  ( "SCENARIOJJREATE  JJEW_EVENTS  JL14_113" , 

" INIT IAL_SCENARIO_4 0_3 9 " ) 

end; 

begin 

DS_SCENARIO_EDITJ>LAN_24_23.  BUFFER.  WRITE  (LV_SCENARIO)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS  JDEBUG.  BUFFERJDVERFLOW  ("SCENARIO_EDIT_PLAN_24_2  3", 

"INITIAL_SCENARIO_40_39”) 

end; 
end  if; 

if  not  EXCEPTION  JiASJJCCURRED  then 
begin 

DS_FIRST_TIME_INITIAL_SCENARIO_4  0_3 9. BUFFER. WRITE  (LVJTIRSTjriME)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  ( ,fFIRST_TIME_INITIAL_SCENARIO_4  0_39"  , 

" INIT IAL_SCENARIO_4 0_3 9 ” ) 

end; 
end  if; 
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—  PSDL  Exception  handler. 

if  EXCEPT I ON_HAS_OCCURRED  then 
DS^DEBUG . UNHANDLE  D_EXCE  PT I ON ( 

" INITI AL_SCENARIO_4 0_3  9 " f 
PSDLJEXCEPTION 1 1MAGE (EXCEPTION_ID) )  ; 
end  if; 

end  INITIAL  SCENARIO  40  39  DRIVER; 


procedure  CREATE_NEW_EVENTS_114_113 ^DRIVER  is 

L  V_GAME__T I ME  :  GAME__TIME_TYPE_PKG . GAMEJTIMEJTYPE ; 

L V__S CENAR 1 0  :  SCENARIO_TYPE_PKG. SCENARIOJTYPE; 
LV_EVENT_Q  :  EVENT_QUEUE_TYPE_PKG . EVENT_QUEUE_TYPE ; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_ID:  PSDLJEXCEPTION; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads, 
begin 

DS_GAME  JT  IME_CREATE_NEW_EVENTS_1 1 4_1 1 3  .  BUFFER .  READ  ( LV_GAME_T  I  ME )  ; 
exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFERJJNDERFLOW ( ,,GAME_TIME_CREATE_NEW_EVENTS_114_113 " , 

" CREATE_NEW_E VENT S_1 1 4_1 1 3 " ) 

end; 

begin 

DS_EVENT_Q_CREATEJJEW_EVENTS_114_113  .  BUFFER.  READ  (LV_EVENT_Q)  ; 
exception 

when  BUFFER__UNDERFLOW  => 

DS_DEBUG .  BUFFER_UNDERFLOW  (  "EVENT_Q_CREATE_NEW_EVENTS_1 1 4  _JL 1 3  " , 

" CREATE_NEW_EVENTS_1 1 4JL 1 3 " ) 

end; 


begin 

DS_SCENARIO_CREATE_NEW_EVENTS_114_l  13.  BUFFER.  READ  (LV_SCENARIO)  ; 
exception 

when  BUFFER_UNDERFLOW  => 

DSJDEBUG . BUFFER_UNDERFLOW ( "SCENARIO_CREATE_NEW_EVENTS_114_113" , 

"  CREATE_NEW_EVENT S_1 1 4_1 1 3  "  ) 

end; 


—  Execution  trigger  condition  check. 

if  not  (SCENARIO_TYPE_PKG.IS_EMPTY(LV_SCENARIO) )  then 
begin 

CREATE_NEW_EVENTS__1 1 4  ( 

GAME_TIME  =>  LV_GAME_TIME, 

SCENARIO  =>  LV_SCENARIO, 

EVENT_Q  =>  LV_EVENT_Q) ; 
exception 

when  others  => 

DS__DEBUG .  UNDECLARED_EXCEPTION  ( ,,CREATE_NEW__EVENTS_114_113"  )  ; 
EXCEPT I ON_HAS_OCCURRE  D ’ : =  t rue ; 

EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 


—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 
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—  Unconditional  output  translations, 
if  not  EXCEPTION_HAS_OCCURRED  then 

begin 

DS_EVENT_Q_CREATE_USER_EVENT_69_68  .BUFFER. WRITE  (LV_EVENT_Q)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( "EVENT_Q_CREATE_USER_EVENT_6  9_68 " , 

" CREATE_NEW_EVENT  S_1 1 4_1 1 3 " ) ; 

end; 

begin 

DS_EVENT_Q_CREATE_NEW_EVENTS_1 1 4_1 1 3 . BUFFER . WRITE ( LV_EVENT_Q ) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( "EVENT_Q_CREATE_NEW_EVENTS_114_113 " , 

"CREATE_NEW_EVENTS_114_113") ; 

end; 

begin 

DS_EVENT_Q_DO_EVENT_66_65 .BUFFER. WRITE (LV_EVENT_Q) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( "EVENT_Q_DO_EVENT_66_65" , 

" CREATE_NEW_EVENTS_1 1 4_1 13") ; 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG . UNHANDLE  D_EXCE  PT I ON ( 

"CREATE_NEW_EVENTS_1 1 4_1 1 3 ” , 

PSDL_EXCEPTION' IMAGE (EXCEPTION_ID) )  ; 
end  if; 

end  CREATE  NEW  EVENTS  114  113  DRIVER; 


procedure  DO_EVENT_66_65_DRIVER  is 

LV_GAME_T IME  :  GAME_TIME_TYPE_PKG . GAME_TIME_TYPE; 

LV_EVENT_Q  :  EVENT_QUEUE_TYPE_PKG . EVENT_QUEUE_TYPE; 

LV_S I MU LAT I ON_H I S TOR Y  :  EVENT_TYPE_SEQUENCE ; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads, 
begin 

DS_GAME_T IME_D0_EVENT_6  6_6  5 . BUFFER. READ ( LV_GAME_T IME ) ; 
exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BU  FFER_UNDERFLOW ( "GAME_TIME_D0_EVENT_6 6_65 " , 

"D0_EVENT_66_65") ; 

end; 

begin 

DS_SIMULATION_HISTORY_DO_EVENT_66_65 . BUFFER. READ ( 

LV_S I MUL AT I ON_H 1ST ORY ) ; 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG. BUFFER_UNDERFLOW  ( "SIMULATION_HISTORY_DO_EVENT_66_65" , 

" D0_EVENT_6  6_6  5 " ) 

end; 

begin 

DS_EVENT_Q_DO_EVENT_66_65. BUFFER. READ (LV_EVENT_Q) ; 
exception 
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when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFE ROUNDER FLOW ( "EVENT_Q_DO_EVENT_66_65 " , 

"DO_EVENT_66  65"); 


end; 


--  Execution  trigger  condition  check. 

if  not  (EVENT_QUEUE_TYPE_PKG. IS_EMPTY (LV_EVENT_Q) )  then 
begin 

DOJEVENT_66 ( 

GAME_TIME  =>  LV__GAME_T  IME , 

EVENTJ2  =>  LV_EVENT_Q, 

S IMULAT I ON_H I STORY  =>  LV_SIMULATION_HISTORY) ; 
exception 

when  others  => 

DS_DEBUG . UNDECLARE D_EXCEPT ION ( "DO_EVENT_66_65" ) ; 

EXCEPT I ONJHAS_OCCURRED  :=  true; 

EXCE PT I ON__I D  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS ^OCCURRED  then 
begin 

DS_GAME_TIME_CREATE_NEW_EVENTS__114_113 .BUFFER. WRITE  (LV_GAME_TIME)  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( " GAME_T IME_CREATE_NE W_EVENT  S__l 1 4_1 1 3 " , 

"DO_EVENT~66_65" ) 

end; 

begin 

D S_G AME _T IME_DO_E VEN T_ 6  6_  6  5  .  BUFFER .  WRITE  (LV_GAME_TIME )  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( "GAME_TIME_DO_EVENT_66_65 " , 

"DO_EVENT_66_65")  ; 

end; 

begin 

DS_GAME_TIMEjSREATE_USER_EVENT_69_68  .BUFFER. WRITE  { LV__GAME_TIME )  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFERJDVERFLOW ( HGAME_TIME_CREATE_USER_EVENT_69_68  H , 

"DO_EVENT_66__65") 

end; 
end  if; 

if  not  EXCE  PT  I  ON__HAS  JDCCURRE  D  then 
begin 

DS_EVENT_Q_CREATE_USER_EVENT_69_68  .  BUFFER .  WRITE  (LV_EVENT_Q)  ; 
exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG . BUFFERJDVERFLOW ( ”EVENT_Q_CREATE_USER_EVENT_69_68 " , 

"DO_EVENT_66__65" ) 

end; 

begin 

DS_EVENT_Q_CREATE_NEW__EVENTS__1 1 4_1 1 3 . BUFFER . WRITE ( LV_EVENT_Q) ; 
exception 

when  BUFFERJDVERFLOW  => 

DSJDEBUG  .  BUFFERJDVERFLOW  ( "EVENT_Q_CREATE_NEW_EVENTS_114_113,f , 

"DO  EVENT  66  65") 
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end; 

begin 

DS_EVENT__Q_DO__EVENT__66_65.  BUFFER.  WRITE  ( LV_EVENT_Q )  ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG. BUFFER_OVERFLOW ( "EVENT_Q_DO_EVENT_66_65M , 

"DO_EVENT_66_65,f ) 

end; 
end  if; 

if  not  EXCEPT  ION__HAS__OCCURRED  then 
begin 

DS_SIMULATION_HISTORY_POST_PROCESSOR_6_5 .BUFFER. WRITE ( 

LV_SIMULATION_HISTORY) ; 

exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG. BUFFER_OVERFLOW ( "SIMULATION_HISTORY_POST_PROCESSOR_6_5" , 

"DO_EVENT__66_65") 

end; 

begin 

DS_SIMULATION_HISTORY_JAAWS_12_ll. BUFFER. WRITE ( 

LV_SIMULATION_HISTORY) ; 

exception 

when  BUFFERJDVERFLOW  => 

DS_DEBUG. BUFFERjDVERFLOW ( "  SIMULATION^  I  ST0RY_JAAWS_12_11" , 

"DO_EVENT_66_65") 

end; 

begin 

DS_SIMULATION_HISTORY_DO_EVENT_66_65  .BUFFER.  WRITE  ( 

L  V^S  I  MU  L  AT  I  ON__H  1ST  OR  Y )  ; 

exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFERJDVERFLOW ( "SIMULATION_HISTORY_DO_EVENT_66_65" , 

"DO_EVENT__66__65" ) 

end; 
end  if; 


—  PSDL  Exception  handler. 

if  EXCE PT I ON_HAS__OCCURRE D  then 
DS_DEBUG . UNHAN  DLED_EXCE  PT I ON ( 
"DO_EVENT__66_65", 

PSDL_EXCEPTION' IMAGE  (EXCEPT I ON_ID)  )  ; 
end  if; 

end  DO  EVENT  66  65  DRIVER; 


procedure  CREATE_USER_EVENT_69_68J3RIVER  is 

LV_GAME_T IME  :  GAME  JT  IME_T  YPE_PKG .  GAME  JTIMEJTYPE; 

LV_USER_INTERACTION  :  USER_INTERACTION_TYPE_PKG . USER_INTERACTION_TYPE; 
LV_EVENT_Q  :  EVENT_QUEUE_TYPE_PKG. EVENT_QUEUE_TYPE; 

EXCEPT  I  ON__HAS_OCCURRED :  BOOLEAN  :=  FALSE; 

EXCEPTION_ID :  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 


—  Data  stream  reads, 
begin 

DS_GAME_TIME_CREATE_USER_EVENT_6 9_68  .  BUFFER . READ  ( LV_GAME_TIME )  ; 
exception 

when  BUFFERJJNDERFLOW  => 

DS_DEBUG . BUFFE ROUNDER FLOW ( "GAME_TIME_CREATE_USER_EVENT_69_68  H , 

"CREATE_USERJEVENT_69_68 " ) ; 

end; 
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begin 

DS  J2VENT_Q_CREATE_USER_EVENT_6  9_68  .  BUFFER .  READ  (LV_EVENT_Q)  ; 
exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFER_UNDERFLOW ( " E VENT_Q_CRE ATE_U S  ER_E  VENT__ 6  9_  6  8 " , 

"CREATE_USER__EVENT_6  9_68  " )  ; 

end; 

begin 

DS_USER_INTERACTION_CREATE_USER_EVENT_69_68 . BUFFER . READ ( 

LV_USER_INTERACT ION ) ; 

exception 

when  BUFFER_UNDERFLOW  => 

DS_DEBUG . BUFFER  JJNDERFLOW ( "USER_INTERACTION_CREATE_US£R_EVENT_6  9_68  " , 

"CREATE_USER_EVENT_69_68 " ) ; 

end; 

—  Execution  trigger  condition  check. 

if  (LV_USER_INTERACTION  =  STOP^SIMULATION)  then 
begin 

CREATE_USER_EVENT_69 ( 

GAMEJTIME  =>  LV_GAME_T I ME , 

USER_INTERACTION  =>  LV_U SER_INTERACT I ON , 

EVENT_Q  =>  LV_EVENT_Q); 
exception 

when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION  ( "CREATE_USER_EVENT_69_68 " )  ; 

EXCEPT I ON_HAS_OCCURRED  :=  true; 

EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 

end; 

else  return; 
end  if; 


—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—  Unconditional  output  translations, 
if  not  EXCEPT I ON_HAS_OCCURRED  then 

begin 

DS_EVENT_Q_CREATE_USER_EVENT_69_68 . BUFFER. WRITE ( LV_E VENT_Q ) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  { "EVENT_Q_CREATE_USER_EVENT_69_68"  , 

"CREATE_USER_EVENT_69_68") ; 

end; 

begin 

DS_EVENT_Q_CREATE_NEW_EVENTS_1 14 _113 . BUFFER. WRITE ( LV_EVENT_Q ) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG .  BUFFER_OVERFLOW  (  "EVENT _Q_CREATE_NEW_EVENTS_1 1 4_1 1 3  " , 

"CREATE_USER_EVENT_69_68 " ) ; 

end; 

begin 

DS_EVENT_QJDO_EVENT_66_65. BUFFER. WRITE (LV_EVENT_Q) ; 
exception 

when  BUFFER_OVERFLOW  => 

DS_DEBUG . BUFFER_OVERFLOW ( "EVENT_Q_DO_EVENT_66_65" , 

"CREATE_USER_EVENT_69_68") ; 

end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION  HAS  OCCURRED  then 
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DS_DEBUG . UNHANDLED_EXCEPTION ( 

" CREATEJJ  S  ER_EVENT_6 9_  6  8 " , 

PSDL_EXCEPTION' IMAGE (EXCEPTION_ID) ) ; 
end  if; 

end  CREATE_USER_EVENT_69_68_DRIVER; 
end  WARRI0R_1_DRIVERS; 

4.  WARRIOR_l_EXCEPTIONS.ADS 

package  WARRI0R_1_EXCEPTI0NS  is 

—  PSDL  exception  type  declaration 
type  PSDL_EXCEPTION  is  ( UNDE CLARED_ADA_EXCE PT I ON ) ; 
end  WARRIOR_l_EXCEPTIONS; 

5.  WARRIOR_l_INSTANTIATIONS.ADS 

with  EVENT_TYPE__PKG ;  use  EVENT_TYPE_PKG; 

—  Generic  type  packages 
with 

SEQUENCE_PKG ; 

package  WARRIOR_l  JCNSTANTIATIONS  is 
—  Ada  Generic  package  instantiations 

package  EVENT  JTYPE_SEQUENCE_PKG  is  new 
SEQUENCE_PKG(EVENT_TYPE_PTR)  ; 

type  EVENT_TYPE_SEQUENCE  is  new 
EVENT_TYPE__SEQUENCE_PKG .  SEQUENCE ; 

end  WARRIOR_l_INSTANTIATIONS; 

6.  WARRIOR_l_STREAMS.ADS 

--  with/use  clauses  for  atomic  type  packages 
with  EVENT_TYPE_PKG;  use  EVENT_TYPE_PKG; 
with  EVENT_QUEUE_TYPE_PKG;  use  EVENT_QUEUE_TYPE_PKG; 
with  STATISTICS_TYPE_PKG;  use  STATISTICS_TYPE_PKG; 
with  SCENARIO_TYPE_PKG;  use  SCENARIO_TYPE_PKG; 

with  STATISTICS_REQUEST_TYPE_PKG;  use  STATISTICS JIEQUEST_TYPE_PKG; 
with  REPLAY_REQUEST_TYPE_PKG;  use  REP L A Y_RE Q  U  E  S  T_T  Y  P  E_P  KG ; 
with  USER_INTERACTION_TYPE_PKG;  use  USER_INTERACTION_TYPE_PKG; 
with  LOCAT ION_T YPE_PKG ;  use  LOCATION_TYPE_PKG ; 
with  GAME_T I ME_T Y P E_PKG ;  use  GAME_TIME_TYPE_PKG; 

—  with/use  clauses  for  generated  packages. 

with  WARRIOR_l_EXCEPTIONS;  use  WARRI0R_1_EXCEPTI0NS; 

with  WARRI 0R_ 1_I NS T ANT I AT I ONS ;  use  WARRI0R_1_INSTANTIATI0NS; 

—  with/use  clauses  for  CAPS  library  packages, 
with  PSDL_STREAMS ;  use  P S DL_S T REAMS ; 

with  PSDL_STRING_PKG;  use  PSDL_STRING_PKG; 
package  WARR I 0 R_ 1 _S T REAMS  is 
--  Local  stream  instantiations 

package  DS_USER_INTERACTION_CREATE_USER_EVENT_69_68  is  new 
PSDL_STREAMS . SAMPLED_BUFFER(USER_INTERACTION_TYPE) ; 

package  DS_STATISTICS_REQUEST_POST_PROCESSOR_6_5  is  new 
PSDL_STREAMS . FIFO_BUFFER (STATISTICS_REQUEST_TYPE) ; 

package  DS_STATISTICS_DISPLAY_ST_31_30  is  new 
PSDL  STREAMS . SAMPLED  BUFFER (STATISTICS  TYPE) ; 
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package  DS_REPLAY_DISPLAY_RE_37_36  is  new 
PSDL_STREAMS . SAMPLED_BUFFER (LOCATION_TYPE) ; 

package  DS_SIMULATION_HISTORY_POST_PROCESSOR_6_5  is  new 
PSDL_STREAMS. SAMPLED_BUFFER(EVENT_TYPE_SEQUENCE) ; 

package  DS_SIMULATI0N_HIST0RY_JAAWS_12_11  is  new 
PSDL_STREAMS. SAMPLED_BUFFER (EVENT_TYPE_SEQUENCE) ; 

package  DS_SIMULATION_HISTORY_DO_EVENT_66_65  is  new 
PSDL_STREAMS. SAMPLED_BUFFER (EVENT_TYPE_SEQUENCE) ; 

package  DS_NEW_PLAN_ENTERED_EDIT_PLAN_24_23  is  new 
PSDL_STREAMS. FI FO_BUFFER( BOOLEAN) ; 

—  State  stream  instantiations 

package  DS_REPLAY_P0SITI0N_JAAWS_12_11  is  new 

PSDL_STREAMS . STATE_VARIABLE ( INTEGER,  1 ) ; 

package  DS_REPLAY_REQUEST_JAAWS_12_11  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

REPLAY_REQUEST_TYPE_PKG . REPLAY_REQUEST_TYPE, 

REPLAY_REQUEST_TYPE_PKG . OFF)  ; 

package  DS_SCENARIO_CREATE_NEW_EVENTS_114_113  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

SCENARIO_TYPE_PKG.SCENARIO_TYPE, 

SCENARIO_TYPE_PKG.EMPTY_SCENARIO)  ; 

package  DS_SCENARIO_EDIT_PLAN_24_23  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

SCENARIO_TYPE_PKG.SCENARIO_TYPE, 

SCENARIO_TYPE_PKG.EMPTY_SCENARIO) ; 

package  DS_NEW_Y_EDIT_PLAN_24_23  is  new 

PSDL_STREAMS.STATE_VARIABLE (FLOAT,  0.0) ; 

package  DS_NEW_X_EDIT_PLAN_24_23  is  new 

PSDL_STREAMS . STATE_VARIABLE ( FLOAT ,  0.0); 

package  DS_FIRST_TIME_INITIAL_SCENARIO_40_39  is  new 
PSDL_STREAMS. STATE_VARIABLE (BOOLEAN,  true) ; 

package  DS_GAME_TIME_CREATE_NEW_EVENTS_114_113  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

GAME_TIME_TYPE_PKG . GAME_TIME_TYPE, 

GAME_TIME_TYPE_PKG . ZERO)  ; 

package  DS_GAME_TIME_DO_EVENT_66_65  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

GAME_TIME_TYPE_PKG . G AME_T I ME_T Y P E , 

GAME_TIME_TYPE_PKG . ZERO)  ; 

package  DS_GAME_TIME_CREATE_USER_EVENT_69_68  is  new 
PSDL  STREAMS . STATE  VARIABLE ( 
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GAME_TIME_TYPE_PKG .  GAME_TIME_TYPE, 

GAME_TIME_TYPE_PKG .  ZERO)  ; 

package  DS_EVENT_Q_CREATE_USER__EVENT__69_68  is  new 
PSDL_STREAMS . STATE_VARIABLE ( 

EVENT_QUEUE_T YPE_PKG . EVENT  _QUEU£_T YPE , 

EVENT_QUEUE_T YPE_PKG . EMPTY ) 

package  DS_EVENT_Q_CREATE_NEW_EVENTS_114_113  is  new 
PSDL_STREAMS . S T AT E_VAR I AB L E ( 

EVENT  J2UEUE_TYPE_PKG . EVENT  JQUEUEJT  YPE , 

EVENT_QUEUE_TYPE_PKG . EMPTY) 

package  DS_EVENTJJJ)OJEVENT_66_65  is  new 
PSDL_STREAMS . S  TAT E_ VAR I AB L E ( 

EVENT  J2UEUE_TYPE_PKG . EVENT_QUEUE_T YPE , 

EVENT  QUEUE  TYPE  P KG. EMPTY) 


end  WARRI0R_1_STREAMS; 

7.  WARRIOR_l_TIMERS.ADS 

with  PSDL_TIMERS; 
package  WARRI0R_1JTIMERS  is 
—  Timer  instantiations 
end  WARRI0R_1_TIMERS; 

8.  WARRIOR_l_DYNAMIC_SCHEDULERS.ADS 

package  warrior_l_DYNAMIC_SCHEDULERS  is 
procedure  START_DYNAMIC_SCHEDULE; 
procedure  STOP_DYNAMIC_SCHEDULE; 
end  warrior_l_DYNAMIC_SCHEDULERS; 

9.  WARRIOR_l_DYNAMIC_SCHEDULERS.ADB 

with  war rior_l_DRIVERS ;  use  warrior_l_DRIVERS ; 
with  PRIORITY_DEFINITIONS;  use  PRIORITYJDEFINITIONS ; 
package  body  warrior_l_DYNAMIC_SCHEDULERS  is 

task  type  DYNAM I C_S CHE DU LEJT YPE  is 

pragma  priority  (DYNAMIC_SCHEDULE_PRIORITY) ; 
entry  START; 

end  DYNAMIC_SCHEDULE_TYPE; 

for  DYNAMIC_SCHEDULE_TYPE'STORAGE_SIZE  use  100_000; 
DYNAMIC_SCHEDULE  :  DYNAMIC_SCHEDULE_TYPE; 

done  :  boolean  :=  false; 
procedure  STOP_DYNAMIC_SCHEDULE  is 
begin 

done  :=  true; 

end  S TOP_DYNAMI C_S  CHEDULE ; 

task  body  DYNAMIC_SCHEDULE_TYPE  is 
begin 

accept  START; 
loop 

enter_new__plan_7  5_74_DRIVER; 
exit  when  done; 

get_y_68_67_DRIVER; 


103 


exit  when  done; 


9et_x_65_64_DRIVER; 
exit  when  done; 

get_re_3 0_2  9_DRIVER ; 
exit  when  done; 

ge t_s t_2 1JZ  6_DRI VER ; 
exit  when  done; 

get_user_in_21_20_DRIVER; 
exit  when  done; 

initial_jscenario_40_39_DRIVER; 
exit  when  done; 

create_new_events_114_113_DRIVER; 
exit  when  done; 

edit_plan_24_23_DRIVER; 
exit  when  done; 

create_user_event_69_68_DRIVER; 
exit  when  done; 

j  aaws_l  2_JL 1_DRI VER ; 
exit  when  done; 

post_j?rocessor_6_5_DRIVER; 
exit  when  done; 

display_re_37_36_DRIVER; 
exit  when  done; 

display_st_31_30_DRIVER; 
exit  when  doner- 

end  loop; 

end  DYNAMIC_SCHEDULEJTYPE; 

procedure  START_DYNAMIC_SCHEDULE  is 
begin 

DYNAMIC'S CHE DULE . START; 
end  START_DYNAMIC_SCHEDULE; 

end  war rior_l_DYNAMIC_SCHEDULERS ; 

10.  WARRIOR_l_STATIC_SCHEDULERS.ADS 

package  warrior_l_STATIC_SCHEDULERS  is 
procedure  START_STATIC_SCHEDULE; 
procedure  STOP_STATIC_SCHEDULE; 
end  warrior  1  STATIC  SCHEDULERS; 
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11.  WARRIOR_l_STATIC_SCHEDULERS.ADB 

with  warrior_l_DRIVERS;  use  warrior_l_DRIVERS; 

with  PRIORITY_DEFINITIONS;  use  PRIORITY_DEFINITIONS ; 

with  PSDLJTIMERS;  use  PSDLJTIMERS; 

with  TEXT_IO;  use  TEXT_IO; 

package  body  warrior_l_STATIC_SCHEDULERS  is 

task  type  STATIC_SCHEDULE_TYPE  is 

pragma  priority  (STATIC_SCHEDULE_PRIORITY) ; 
entry  START; 

end  STATIC_SCHEDULEJTYPE; 

for  STATICJSCHEDULEJTYPE'STORAGEJSIZE  use  200_000; 

STATIC_SCHEDULE  :  STATIC_SCHEDULE_TYPE; 

done  :  boolean  :=  false; 
procedure  STOP_STATIC_SCHEDULE  is 
begin 

done  :=  true; 
end  STOP_STATIC_SCHEDULE; 

task  body  STATIC_SCHEDULE_TYPE  is 
PERIOD  :  duration; 

gui_e  vent  jnionitor_18_17_STARTJT  IME  1  :  duration; 
gui_event  jnonitor_18_17_STOPJTIMEl  :  duration; 
do_event_66_65_START_TIME2  :  duration; 
do_event_66_65j3TOPJTIME2  :  duration; 
gui_event_monitor_18_17__STARTJTIME3  :  duration; 
gui__event_moni  to  r_18_l  7  JSTOP  JT  IME  3  :  duration; 
gui_eventjntonitorJL8_17jSTART_TIME4  :  duration; 
gui_event_monitor_18  JL7JSTOPJTIME4  :  duration; 
gui_event__monitorJL8_17__STARTJTIME5  :  duration; 
gui_event_monitor_18_17_STOPJTIME5  ;  duration; 
do_event_66_65_STARTJTIME6  :  duration; 
do_event_6 6_65_STOP_T IME 6  :  duration; 
gui_eventjmonitor_18_17_STARTJTIME7  :  duration; 
gui_event_monitor_18_17  JST0PJTIME7  :  duration; 
gui_eventjmonitor_18_17_STARTJTIME8  :  duration; 
gui_event_monitor_18_17_STOPJTIME8  :  duration; 
gui_event_monitor_18_17_STARTJTIME9  :  duration; 
gui_event_monitor_18_17  J3TOPJTIME9  :  duration; 
d°_event_66_65_START_TI]yiE10  :  duration; 
do_event_66_65_STOPJTIME10  :  duration; 
gui_e  vent  jrctoni  t  or_l 8_1 7_START_T IME 1 1  :  duration; 
gui_event_monitor_18_17_STOP_TIMEll  :  duration; 
gui_e  ven  t_moni  t  o  r_l  8_17_ST  ART  JT  IME  12  :  duration; 
gui_event_monitor_18_17_STOPJTIME12  :  duration; 
gui_e  ventjnoni  t  o  r_l  8_1 7  J3T  ART  JT  IME  13  :  duration; 
gui_event_monitor  JL8_17_STOPJTIME13  :  duration; 
schedulej:  inter  :  TIMER  :=  NEWJTIMER; 
begin 

accept  START; 

PERIOD  :=  TARGET  JTO_HOST (duration {  3.00000E+00)); 
gui_event_monitorJL8__17_START_TIMEl ' :=  TARGET_TO_HOST ( 

duration(  0 . OOOOOE+OO) ) ; 

gui__event_monitor_18_17_STOP_TIMEl  TARGET  JTO_HOST ( 

duration (  5.00000E-02}); 

do_event_66_65_START_TIME2  :=  TARGET_TO_HOST (duration (  5 . 00000E-02 ) ) 
do_event_66_65_STOP_TIME2  :=  TARGE T_TO_HO ST (duration (  1 . 50000E-01) ) ; 
gui_event_ntonitor_18_17_START_TIME3  :=  TARGET  JTO_HOST ( 

duration(  3.00000E-01)); 

gui_event_monitor_18_17_STOP_TIME3  :  =  TARGE T_TO_HO ST ( 

duration(  3 . 50000E-01) ) ; 
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gui_event_monitor_18_17_START_TIME4  :=  TARGE TJTOJHO ST ( 

duration (  6 . OOOOOE-Ol ) ) ; 

gui_event_monitor_18_17_STOPJTIME4  :=  TARGE T_TO_HO ST ( 

duration(  6 . 50000E-01) ) ; 

gui_event_monitor_18_17_START_TIME5  :=  TARGET_TO_HOST ( 

duration (  9 . OOOOOE-Ol )) ; 

gui_event_monitor_18_17_STOP__TIME5  :=  T ARGE T_T 0_H0 S T  ( 

duration(  9.50000E-01)); 

do_event_66_65_START_TIME6  :=  TARGET_TO_HOST (duration (  1 . 05000E+00 ) ) ; 

do_event_66_65_STOP_TIME6  :  =  TARGET_TO_HOST (duration (  1 . 15000E+00 ) ) ; 

gui_event_monitor_18_17_START_TIME7  :  =  TARGET_TO_HOST ( 

duration(  1 . 20000E+00) ) ; 

gui_event_monitor_18_17_STOP_TIME7  :=  TARGET_TO_HOST ( 

duration(  1 . 25000E+00) ) ; 

gui_event_monitor__18_17_START_TIME8  :=  TARGET_TO_HOST ( 

duration (  1 . 50000E+00) ) ; 

gui_event_monitor__18_17_STOP__TIME8  :=  TARGET_TO_HOST ( 

duration {  1 . 55000E+00) ) ; 

gui_event_monitor_18_17_START_TIME9  :=  TARGET_TO_HOST ( 

duration (  1 . 80000E+00) ) ; 

gui_event_monitor_18_17_STOP_TIME9  :=  TARGE T_TO_HO ST  ( 

duration (  1 . 85000E+00) )  ; 

do_event_66_65_START_TIME10  :=  TARGET_TO_HOST (duration (  2 . 05000E+00 ) ) ; 

do_event_6 6_65_STOP_T IME1 0  :=  TARGET  JTO_HOST (duration (  2.15000E+00)); 

gui_event_monitor_18_17_START_TIMEll  :=  TARGET_TO_HOST ( 

duration (  2 . 15000E+00) ) ; 

gui_event_monitor_18_17_STOP_TIMEll  :=  TARGET  JTO_HOST ( 

duration (  2.20000E+00)); 

gui_event_monitor_18_17_START_TIME12  :=  TARGET_TO_HOST ( 

duration (  2 . 40000E+00) ) ; 

gui_event_monitor_18_17_ST0P_TIME12  :=  TARGET_TO_HOST ( 

duration{  2 . 45000E+00) } ; 

gui_event_monitor_18_17_START_TIME13  :=  TARGET_TO_HOST ( 

duration(  2 . 70000E+00) ) ; 

gui_event_monitor_18_17_STOP_TIME13  :=  TARGE T_TO_HO ST ( 

duration(  2 . 75000E+00) ) ; 

START (schedule_timer) ; 

loop 

delay (gui_event_monitor_18_17_START_TIMEl  - 

HOST^DURATION (schedule_timer) ) ; 

gui_event_monitor_18_17_DRIVER; 

if  HOST_DURATION(  schedule  J;imer)  > 

gui_event_monitor_18_17_STOP_TIMEl  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17 " ) ; 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS ( HOST_DURAT ION ( schedule  J:imer )  - 

gui_event_monitor__18_17_STOP_TIMEl )  ; 

end  i f ; 

exit  when  done; 

delay (do_event_66_65_START_TIME2  -  HOST_DURATION (schedule_timer ) ) ; 

do_event_66_65_DRIVER; 

if  HOST_DURATION (schedule_timer )  >  do_event_66_65__STOP_TIME2  then 
PUT_LINE ("timing  error  from  operator  do_event_66_65") ; 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS (HOSTJDURATION ( schedule_timer )  - 

do_event_66_65_STOP_TIME2) ; 

end  if; 

exit  when  done; 

delay (gui_event_monitor_18_17_START_TIME3  - 

HOST_DURATION (schedule_timer) ) ; 

gui_event_monitor_18_17__DRIVER; 

if  HOST_DURATION(schedule_timer)  > 

gui_event__monitor_18_17_STOP_TIME3  then 
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PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17") ; 
SUBTRACT__HOST_TIME_FROM_ALL_TIMERS  (HOST_DURATION  ( schedule _timer )  - 

gui_event  _monitor__l  8_17_STOP__TIME3 )  ; 

end  if; 

exit  when  done; 

delay  <gui_event_monitor_18_17_START_TIME4  - 

HOST_DURATION (schedule_timer) ) ; 

gui_event_monitor_18_17__DRIVER; 
if  HOST_DURATION (schedule_timer)  > 

gui_event_monitor_18_17_STOP_TIME4  then 
PUT_LINE ("timing  error  from  operator  gui_event_monitor_18_17") ; 
SUBTRACT_HOSTJTIME_FROMJlLL_TIMERS (HOST_DURATION (schedule_timer )  - 

gui_event_monitor_18_17_STOP_TIME4)  ; 

end  if; 

exit  when  done; 

delay (gui_event_monitor_18_17_STARTjriME5  - 

HOSTJ)URATION(schedule_timer)); 

gui_event_monitor_18_17_DRIVER; 
if  HOST_DURATION(schedule_timer)  > 

gui_event_monitor_18_17_STOP_TIME5  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17" )  ; 
SUBTRACT_HOST_T IME_FROM__ALL_T IMERS  (HOST_DURATION  (schedule_timer )  - 

gui_event_monitor_18_17_STOP_TIME5)  ; 

end  if; 

exit  when  done; 

delay  (do__event_66_65_START_TIME6  -  HOST_DURAT ION  (schedule^ imer)  ); 
do_event_6  6_65_DRI VER ; 

if  HOST_DURATION (schedule_timer)  >  do_event_66_65_STOP_TIME6  then 
PUT_LINE ( "timing  error  from  operator  do_event_66__65" ) ; 
SUBTRACT_HOSTJTIME_FROM_ALLJTIMERS (HOST_DURATION ( schedule_timer )  - 

do_event_66_65_STOP_TIME6) ; 

end  if; 

exit  when  done; 

delay  (gui_event_monitor_18_17_J3TART_TIME7  - 

HOST_DURATION  (schedule_timer )  )  ; 

gui_event_monitor_18_17_DRIVER; 
if  HOST_DURATION(schedule_timer)  > 

gui_event_monitor_18_17_STOP_TIME7  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17" ) ; 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS  (HOST_DURATION  (schedule_timer )  - 

gui_event  _monitor_18_17_STOP_TIME7 )  ; 

end  if; 

exit  when  done; 

delay (gui_event_monitor_18_17_START_TIME8  - 

HOST  JDURATION (schedule  J:imer) ) ; 

gui_event_monitor_18_17_DRIVER; 
if  HOST_DURATION( schedule  jtimer)  > 

gui_event_monitor_18_17_STOP_TIME8  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17 " ) ; 
SUBTRACT_HOSTJTIME_FROM_ALL_TIMERS  (HOST_DURATION  (schedule _timer )  - 

gui_event_monitor_18_17_STOP_TIME8) ; 

end  if; 

exit  when  done; 

delay  (gui_event_monitor_18_17_START_TIME9  - 

HOST_DURATION  (schedule_timer)  )  ; 

gui_event_monitor_18_17_DRIVER; 
if  HOST  DURATION (schedule  timer)  > 
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gui_event_monitor_18_17_STOP_TIME9  then 
PUT_JLINE ( "timing  error  from  operator  gui_event_monitor_18_17 " ) ; 

S  U  B  T  RACT_H  0  S  T_T I ME_FROM_AL L_T I ME R  S (HOST_DURATION ( schedule_timer )  - 

gui_event_monitor__18_17_STOP_TIME9)  ; 

end  if; 

exit  when  done; 

delay  (do_event_66_65_START_TIME10  -  HOST_DURATION ( schedule_t imer ) ) ; 
do_j event_66_65_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  do_event_66_65_STOP_TIME10  then 
PUT_LINE ( "timing  error  from  operator  do_event_66__65" ) ; 

SUBTRACT  JiOSTJTIME_FROM_ALL_TIMERS { HOST_DURAT I ON ( schedule_timer )  - 

do_event_66_65_STOP_TIME10 ) ; 

end  if; 

exit  when  done; 

delay (gui_event_monitor_18_17_START_TIMEll  - 

HOST^DURATION ( schedule_timer ) ) ; 

gui_event_moni tor_l 8_1 7_DRI VER ; 
if  HOST_DURATION(schedule_timer)  > 

gui_event_monitor_18_17_STOP_TIMEll  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17") ; 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS ( HOST_DURAT ION ( schedul e__t imer )  - 

gui_event_monitor__18__17_STOP_TIMEll )  ; 

end  if; 

exit  when  done; 

delay (gui_event_monitor_18_17_START_TIME12  - 

HOST_DURATION ( schedule_timer ) ) ; 

gui_event_monitor_18_17_DRIVER; 
if  HOST_DURATION(schedule_timer)  > 

gui_event_monitor_18_17_STOP_TIME12  then 
PUT_LINE ( "timing  error  from  operator  gui_event__monitor_18_17") ; 
SUBTRACT_HOSTJTIME_FROM_ALL_TIMERS (HOST_DURATION ( schedule_timer )  - 

gui_event_monitor_18_17_STOP__TIME12)  ; 

end  if; 

exit  when  done; 

delay  (gui_event jxionitor_18_17__START_TIME13  - 

HOST_DURATION ( schedule  J:  imer ) ) ; 

gui_event_monitor_18_17_DRIVER; 
if  HOST_DURATION(schedule_timer)  > 

gui_event_monitor_18:_17_STOP_TIME13  then 
PUT_LINE ( "timing  error  from  operator  gui_event_monitor_18_17"); 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS (HOST_DURATION ( schedule  J:  imer )  - 

gui_event_monitor_18_17_STOP_TIME13)  ; 

end  if; 

exit  when  done; 

delay (PERIOD  -  HOST_DURAT ION (schedule_t imer ) ) ; 

RESET  (schedule__timer)  ; 
end  loop; 

end  STATIC_SCHEDULE_TYPE; 

procedure  START_STATIC_SCHEDULE  is 
begin 

STATICJSCHEDULE.  START; 
end  START_STATIC_SCHEDULE; 

end  warrior_l_STATIC_SCHEDULERS; 

12.  WARRIOR_EVENT_MONITOR_TASK_PKG.ADS 
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—  The  wrapper  task  to  provide  mutual  exclusion 

—  for  calls  from  the  prototype  to  TAE. 

with  PRIORITY_DEFINITIONS;  use  PRIORITY JDEFINITIONS; 
with  statistics_type_pkg;  use  statistics_type_pkg; 
with  location_type_pkg;  use  location_type_pkg; 
package  warrior_eventjmonitor_task_pkg  is 
task  warrior_event_monitor_task  is 
pragma  priority  (BUFFER_PRIORITY) ; 
entry  event_monitor_entry; 

entry  display_st_31_entry (statistics :  statistics_type) ; 
entry  display_re_37_entry (replay :  location_type) ; 
entry  end_task; 

end  warrior_event_monitor_task; 
end  warrior_event__monitor_task_pkg; 

13.  WARRIOR_E  VENT_MONITOR_T  ASK_PKG.  ADB 

—  The  wrapper  task  to  provide  mutual  exclusion 

—  for  calls  from  the  prototype  to  TAE. 

with  generated_tae__event_monitor__pkg; 
with  panel_gui_3; 
with  text_io; 

package  body  warrior_event_monitor_task_pkg  is 
task  body  warrior_event_monitor_task  is 
done  :  boolean  :=  false; 
begin 

panel_gui_3 . initialize_gui; 
loop 
select 

accept  event_monitor_entry  do 
if  not  done  then 

generated_tae_event_monitor_pkg . generated_tae_event_monitor; 
end  if; 

end  event_monitor_entry; 
or 

accept  display_st_31_entry (statistics :  statistics_type)  do 
if  not  done  then 

panel_gui_3 . display_st_31 (statistics) ; 
end  if; 

end  display_st_31_entry; 
or 

accept  display_re_37_entry (replay:  location_type)  do 
if  not  done  then 

panel_gui_3  .  display_re__37  (replay)  ; 
end  if; 

end  display_re_37_entry; 
or 

accept  end__task  do 
raise  Program_Error; 
end  end_task; 
end  select; 
end  loop; 

end  warrior_event_monitor_task; 
end  war rior_event_moni tor_task_pkg ; 
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14.  CREATENEWEVENTS1 14PKG.ADS 

with  game_time__type_pkg;  use  game_time_type_pkg; 
with  event_queue_type_pkg;  use  event_queue_type_pkg; 
with  scenario_type_pkg;  use  scenario_type_pkg; 

package  create_new_events_114_pkg  is 

procedure  create_new__events_114  (  game_time:  in  game_time_type; 

event_q:  in  out  event_queue_type ; 
scenario:  in  scenario_type  }; 

end  create__new__events_114_pkg; 

15.  CRE  ATENEWE  VENTS_1 1 4PKG.  ADB 

with  simulation_obj ect_Pkg;  USE  Simulation_Object_Pkg; 

with  event_type_j?kg;  USE  event_type_pkg; 

with  event_type_pkg ,move_pkg;  use  event_type_pkg.move_pkg; 

with  text_io; 

package  body  create_new_events_114_pkg  is 

procedure  create_new_events_114 (  game_time :  in  game_time_type; 

event_a:  in  out  event_queue_type; 
scenario:  in  scenario_type  )  is 

Event  :  Event_Type_Ptr ; 

Object_Ptr  :  Simulation_Ob j  ect__Ptr ; 

begin  — 

Object_Ptr  :=  Get_Unit  (  Scenario  );  —  Just  one  unit  in  this  version 
if  Can_move (Object_Ptr . all)  and  —  Just  one  kind  of  initial  event 

not  Get_Is_Scheduled (Object_Ptr . all ) 
then 

—  since  this  is  currently  the  only  type  of  event,  move 
Event  :=  event_type_pkg ,move_pkg . Const ruct_Event  (Object_Ptr, 

Game_Time  ) 

Schedule_Event {  Event,  Event_Q  ); 

Set_Is_Scheduled (Object_Ptr . all,  true) ; 
end  if; 

end  create_new_events_114; 
end  create_new_events_114_j?kg; 


16.  CREATE_USER_EVENT_69_PKG.ADS 

with  game_time_type_pkg;  use  game_time_type_pkg; 

with  event_queue_type_pkg;  use  event_queue_type_pkg; 

with  user_interaction_type_pkg;  use  user_interaction_type_pkg; 

package  create_user_event_69_j?kg  is 

procedure  create_user_event_69 {  game_time:  in  game__time__type; 

event_q:  in  out  event_queue_type; 

user_interaction :  in  user_interaction_type  ); 

end  create_user_event__69_pkg; 

17.  CREATE  JUSERJEVENT_69_PKG.ADB 

WITH  Simulation_Object_Pkg;  USE  Simulation_Obj ect_Pkg ; 

WITH  Event_Type_Pkg;  USE  Event_Type__Pkg; 

with  event_type_pkg . end_sim_pkg;  use  event_type_pkg . end_sirnj?kg; 
package  body  create_user_event_69_pkg  is 
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procedure  create_user_event_69 (  game_time:  in  game_time_type; 

event_q:  in  out  event_queue_type; 

user__interaction:  in  user_interaction_type  )  is 

Event  :  Event_Type_Ptr  ; 

Object_Ptr  :  Simulation_Object_Ptr  :=  NULL; 

begin  — 

if  User_Interaction  =  stop_simulation  then 

—  Only  one  kind  of  user  interaction  in  this  version. 

Event  :=  event_typejpkg . end_sim_pkg . Construct_Event (  Object_Ptr, 

Game_Time  ) 

Schedule__Event  (  Event,  event_q  ); 
end  if; 

end  create_user_event_69; 
end  create_user_event_69_pkg; 

18.  DELIMITERPKG.ADS 

package  delimiter_pkg  is 

type  delimiter__array  is  array  (character)  of  boolean; 
function  initialize_delimiter_array  return  delimiter_array; 
end  delimiter_pkg; 

19.  DELIMITERPKG.ADB 

package  body  delimiter_pkg  is 

function  initialize__delimiter_array  return  delimiter_array  is 
begin 

return  (f  f  I  ascii. ht  I  ascii. cr  |  ascii. If  =>  true,  others  =>  false); 
end  initialize_delimiter_array; 
end  delimiterjokg; 


20.  DISPLAY_RE_37_PKG.ADS 

with  location_type_pkg;  use  location_type_pkg; 
package  display_re_37_pkg  is 

procedure  display_re_37 (replay:  location_type) ; 
end  display_re_37_pkg; 

21.  DISPLAYJRE_37_PKG.ADB 

with  warrior_event_monitor_task_pkg; 
use  warrior_event_monitor_task_pkg; 
package  body  display_re_37_pkg  is 

procedure  display_re_37 (replay:  location_type)  is 
begin 

warrior_event_inonitor_task.  display_re__37_entry  (replay)  ; 
end  display_re_37 ; 
end  display_re_37_pkg; 

22.  DISPL  AY_ST_3 1_PKG.  ADS 

with  statistics_type_pkg;  use  statistics_type_pkg; 
package  display_st_31_pkg  is 

procedure  display_st_31 (statistics :  statistics_type) ; 
end  display_st__31_pkg; 


23.  DISPLAY  ST  31  PKG.ADB 


with  warrior_event_monitor_task_pkg; 
use  warrior_event_monitor_task_pkg; 
package  body  display_st_31_pkg  is 

procedure  display_st_31 (statistics :  statistics_type)  is 
begin 

warrior_event_monitor_task. display_st_31_entry (statistics) ; 
end  display_st_31; 
end  display_st_31_pkg; 

24.  DOEVENT66PKG.ADS 

with  game_time_typejpkg;  use  game_time_type_pkg; 

with  event_queue_type_pkg;  use  event_queue_type_jpkg; 

with  warrior_l_instantiations;  use  warrior_l_instantiations ; 
with  warrior_l_exceptions;  use  warrior_l_exceptions ; 

package  do_event_66_pkg  is 

procedure  do__event_66 (  game_time:  in  out  game_time_type; 

simulation_history :  in  out  event_type_sequence; 

event  q:  in  out  event  queue  type  ) ; 

end  do_event_66_pkg; 


25.  DOEVENT66PKG.ADB 

with  simulation_object_pkg; 
with  event_type_pkg; 
with  event_type_pkg.move_j?kg; 
with  event__type_pkg .  end_sim_pkg; 


package  body  do_event_66_pkg  is 

procedure  do_event_66(  game_time:  in  out  game_time__type; 

simulation_history :  in  out  event_type_sequence; 
event_q:  in  out  event_queue_type  )  is 

Next_Time  :  GameJTimeJType; 

Event  :  Event_Type_Ptr ; 

begin  — 

Get_Next__Event (  Event,  event_q  );  --  get  event  from  event  queue 

Next_Time  :=  Execute_Event (  Event. ALL  );  —  execute  event  and  get  next 

—  execution  time 

Game_Time  :=  Get_Event_Time (  Event. ALL  );  --  update  game  time  to  time  of 

—  event 

Simulation_Hi story  :=  Add (  CopyJEvent (  Event. ALL  ),  Simulation_History  ) 
if  NextJTime  /=  NEVER  then 

Set_Event_Time (  Event. ALL,  Next_Time  ); 

Schedule_Event (  Event,  event_q  ); 
end  if; 

end  do_event_66; 
end  do_event_66_pkg; 

26.  EDIT_PLAN_24_PKG.ADS 

with  scenario_type_pkg;  use  scenario_type_pkg; 

with  warrior_l_instantiations ;  use  warrior__l_instantiations; 
with  warrior_l_exceptions ;  use  warrior_l_exceptions; 

package  edit_jplan__24_pkg  is 


use  simulation_object_pkg; 
use  event_type_pkg; 
use  event_type_pkg .move_pkg; 
use  event__type_pkg .  end_sim_pkg; 
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procedure  edit_plan_24 (  new_plan_entered:  in  boolean; 

new_y:  in  float; 

new^x:  in  float; 

scenario:  in  out  scenario_type  ); 

end  edit_plan_24_pkg; 

27.  EDITPLAN24PKG.ADB 

with  Location_Type_pkg;  use  Location_Type_pkg; 

with  Simulation_Object_Pkg;  use  Simulation__Object_Pkg; 

package  body  edit_plan_24_pkg  is 

procedure  edit_plan__24  (  new_plan__entered:  in  boolean; 

new_y:  in  float; 

new_x:  in  floaty- 

scenario:  in  out  scenario_type  )  is 

unit:  SimulationjObject_Ptr; 
destination:  Location_Type; 

begin  — 

destination  :=  To_Location (new_x,  new_y) ; 
unit  :=  get_unit (scenario)  ; 

Set_Destination (unit . all,  destination) ; 

end  edit_plan_24 ; 
end  edit_plan_24_pkg; 

28.  ENTER_NEW_PLAN_75_PKG.ADS 

package  enter_new_planJ75_pkg  is 

procedure  enter_new_plan_75 (new_plan_entered  :  out  boolean); 
procedure  record_input (new_plan_entered  :  in  boolean) ; 
function  has_new_input  return  boolean; 

—  True  iff  a  user  input  has  arrived 
—  since  the  last  time  this  bubble  was  executed, 
end  enter_new_plan_75_pkg; 

29.  ENTER_NEW_PLAN_75_PKG.ADB 

with  psdl_streams;  use  psdl__st reams  ; 
package  body  enter_new_plan_75_pkg  is 
package  new_plan_entered_buf fer  is  new 
sampled_buf fer (boolean) ; 
use  new_plan_entered_buffer; 

procedure  enter_new_plan_75 (newjplan_entered  :  out  boolean)  is 
begin 

—  Get  the  value  from  new_plan_entered_buf fer 
buffer . read (new_plan_entered)  ; 
end  enter_new_plan_75; 

procedure  record__input (new_plan_entered  :  in  boolean)  is 
begin 

—  Save  the  value  in  new_plan_entered_buf f er 
buffer . write (new_plan_entered)  ; 
end  record_input ; 

function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  new_plan_entered__buf fer 
return  new  data; 


113 


end  has_new_input ; 
end  enter_new_plan_75_pkg; 

30.  EVENTQUEUETYPEJPKG.ADS 

WITH  sorted_list_pkg; 

WITH  Event_Type_Pkg;  use  Event_Type_Pkg; 
package  Event_Queue_Type_Pkg  is 
type  Event_Queue_Type  is  private; 

PROCEDURE  Schedule_Event  (Event  :  IN  Event_Type_Ptr ; 

Event_Q  :  IN  OUT  Event_Queue_Type ) ; 

PROCEDURE  Get_Next_E vent (Event  :  out  Event_Type_Ptr ; 

Event_Q  :  IN  OUT  Event__Queue_Type )  ; 

FUNCTION  Is_Empty (Event_Q  :  IN  Event_Queue_Type )  RETURN  BOOLEAN; 

FUNCTION  Empty  RETURN  Event_Queue_Type ; 

private 

package  e_q__pkg  is  new  sorted_list_pkg  (element_type  =>  Event_Type_Ptr , 

"<"  =>  " < *' )  ; 

type  Event_Queue_Type  is  new  e_q_pkg . sorted_list ; 
end  Event_Queue_Type_Pkg; 

31.  EVENTQUEUETYPEPKG.ADB 

with  event_type_pkg  .move_pkg;  use  event_type_pkg.move_pkg; 

with  event_type_pkg. end_sim_pkg;  use  event_type__pkg .  end_sim__pkg; 
with  ada . text_io ; 

package  body  Event_Queue_Type_Pkg  is 

PROCEDURE  Schedule_Event 

(Event  :  IN  Event_Type_Ptr ; 

Event_Q  :  IN  OUT  Event_Queue_Type)  is 

begin 

add(Event_Q,  Event); 
end  Schedule  Event; 


PROCEDURE  Get_Next_Event 

(Event  :  out  Event_Type_Ptr ; 

Event_Q  :  IN  OUT  Event_Queue_Type )  is 

begin 

get__smallest  (Event_Q,  Event); 
end  Get  Next  Event; 


FUNCTION  Is_Empty (Event_Q  :  IN  Event_Queue_Type)  RETURN  BOOLEAN  is 
begin 

return  e_q_pkg . is_empty (e_q_pkg . sorted_list (Event_Q) ) ; 
end  Is^Empty; 
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FUNCTION  Empty  RETURN  Event _Queue  JType  is 
begin 

return  Event_Queue__Type  (e_q_pkg .  empty)  ; 
end  Empty; 

end  Event_Queue_Type__Pkg; 

32.  EVENT_.TYPE_PKG.ADS 


FileName : 
Author: 

Date : 

Project : 
Compiler: 
Description : 


Event_Type_Pkg . ads 
Julian  Williams 
10  October  1998 

Janus/Warrior  Combat  Simulation  for  CAPS 
ObjectAda  for  Windows  Ver.  7.1.1  (Professional) 

This  package  describes  basic  functions  and  procedures 
involving  event  types  in  the  Warrior  Combat  Simulation 
model . 


WITH  Simulation_Object_Pkg;  USE  Simulation_Obj ect_Pkg; 
WITH  Game_Time_TypeJ?kg;  USE  GameJTime_Type_pkg; 


PACKAGE  Event_Type_Pkg  IS 

TYPE  Event_Action_Type  IS  (  MoveUpdateObj ,  EndSimulation  ); 

TYPE  Event_Type  IS  ABSTRACT  TAGGED  PRIVATE; 

TYPE  Event_Type_Ptr  IS  ACCESS  ALL  Event_Type 1  Class ; 


— |  FUNCTION  Get_Event_Time 
— |  Pre:  An  unexecuted  event  exsist. 

— |  Post:  Start  time  for  the  event  is  returned. 


FUNCTION  Get__Event_Time  (Event:  IN  Event_Type  *  Class ) 

RETURN  Game_Time_Type; 


—  I  PROCEDURE  Set_Event_Time 

—  I  Pre: 

-- |  Post: 


PROCEDURE  Set_Event_Time  (Event:  IN  OUT  Event_Type ' Class ; 

Time:  IN  Game_Time_Type)  ; 


—  |  FUNCTION  Get_Obj ect 
--I  Pre:  An  event  exist. 

Post:  The  object  designated  within  the  event  is  returned. 


FUNCTION  Get_Obj  ect  (Event:  IN  Event_Type *  Class ) 

RETURN  Simulation_Object_Ptr; 


— |  FUNCTION  Get_Action 
— |  Pre:  An  event  exist. 

— |  Post:  The  action  on  the  object  in  the  event  is  returned. 
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FUNCTION  Get_Action  (Event:  IN  Event__Type  ’  Class ) 

RETURN  Event_Action_Type; 


--I  FUNCTION  "<" 

— |  Pre:  Two  event  types  exist. 

—  I  Post:  The  least  valued  event  is  returned. 


FUNCTION  "<"  (Left,  Right:  IN  Event _Type_Ptr )  RETURN  Boolean; 


—  I  FUNCTION  Execute__Event 

—  I  Pre:  A  move  event  has  been  extracted  from  the  event  queue 

—  I  and  needs  to  be  executed. 

-•I  Post:  Move  event  is  executed  and  time  executed  is  returned. 


FUNCTION  Execute_Event  (Event:  IN  Event  Type) 

ETURN  Game_Time_Type; 


— |  PROCEDURE  Copy_Event 
— |  Pre:  An  move  event  exist. 

— |  Post:  The  move  event  is  copied  and  a  pointer  to  the  copy  is 

—  I  returned. 


FUNCTION  Copy_Event  (Event:  IN  Event__Type) 

RETURN  Event_Type_Ptr; 


PRIVATE 

TYPE  Event_Type  IS  ABSTRACT  TAGGED 
RECORD 

Action  :  Event__Action_Type; 


Object_Ptr  :  Simulation_Ob j ect_Ptr  :=  NULL; 


Time  :  Game__Time_Type ; 

END  RECORD; 

END  Event_Type_Pkg; 


desired  action 
to  be  performed 
pointer  to 
simulation 
obj  ect 

time  to  start 
event  action 


33.  EVENT_TYPE_PKG.ADB 


FileName : 
Author : 

Date : 

Proj  ect : 

Compiler: 

Description 


Event_Type_Pkg . adb 
Julian  Williams 
10  October  1998 

Janus /Warrior  Combat  Simulation  for  CAPS 
ObjectAda  for  Windows  Ver.  7.1.1  (Professional) 

This  package  describes  basic  functions  and  procedures 
involving  event  types  in  the  Warrior  Combat  Simulation 
model . 


with  ada.text_io; 

PACKAGE  BODY  Event_Type_Pkg  IS 
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—  I  FUNCTION  Get__Event_Time 

—  |  Pre:  An  unexecuted  event  exsist. 

— |  Post:  Start  time  for  the  event  is  returned. 


FUNCTION  Get_Event  JTime  (Event:  IN  Event  JType ' Class ) 

RETURN  Game  JTime  JType  IS 

BEGIN  Get  JEvent  JTime 

RETURN  Event. Time; 

END  Get  Event  Time; 


-- |  PROCEDURE  Set_Event_Time 
—  I  Pre: 

— |  Post: 


PROCEDURE  Set_Event  JTime  (Event:  IN  OUT  EventJType 1  Classi- 

Time:  IN  Game  JTime  JType)  IS 

BEGIN  —  Set  JSvent  JTime 
Event. Time  :=  Time; 

END  Set  Event  Time; 


—  |  FUNCTION  Get__Obj  ect 
— |  Pre:  An  event  exist. 

— |  Post:  The  object  designated  within  the  event  is  returned. 


FUNCTION  GetjObject  (Event:  IN  EventJType ' Class ) 

RETURN  SimulationJDb j  ect_Ptr  IS 

BEGIN  —  GetjObject 

RETURN  Event . Object J?tr; 

END  Get__Object; 


—  |  FUNCTION  Get_Action 
— |  Pre:  An  event  exist. 

— |  Post:  The  action  on  the  object  in  the  event  is  returned. 


FUNCTION  Get_Action  (Event:  IN  EventJType 1  Class ) 

RETURN  Event __Act ion jType  IS 

BEGIN  —  GetjAction 
RETURN  Event . Action; 

END  Get  Action; 


— |  FUNCTION  "<" 

— |  Pre:  Two  event  types  exist. 

— |  Post:  The  least  valued  event  is  returned. 


FUNCTION  "<"  (Left,  Right:  IN  EventJType _Ptr )  RETURN  Boolean  IS 
Reply  :  Boolean; 

BEGIN  —  "<” 

IF  Left. ALL. Time  <  Right .ALL . Time  THEN 
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Reply  :=  True; 

ELSIF  Left .ALL. Time  >  Right . ALL . Time  THEN 
Reply  :=  False; 

ELSE 

Reply  :=  (  Left .ALL. Action  <  Right .ALL .Action  ); 
END  IF; 

RETURN  Reply; 

END  "<"; 


“-I  FUNCTION  Execute_Event 

-- |  Pre:  A  move  event  has  been  extracted  from  the  event  queue 

— |  and  needs  to  be  executed. 

— |  Post:  Move  event  is  executed  and  time  executed  is  returned. 


FUNCTION  Execute_Event  (Event:  IN  EventJType) 

RETURN  Game_Time_Type  IS 

begin  — 

ada. text_io.put_line ("In  the  base  execute  event  routine."); 
return  100; 
end  execute  event; 


— |  PROCEDURE  Copy_Event 
— |  Pre:  An  move  event  exist. 

— i  Post:  The  move  event  is  copied  and  a  pointer  to  the  copy  is 

— |  returned. 


FUNCTION  Copy_Event  (Event:  IN  EventJType)  RETURN  Event  JType_Ptr  IS 
begin  — 

ada.  text_io.put__line  ("In  the  base  copy  routine"); 
return  null; 
end  copy_event; 

END  Event__Type_Pkg; 

34.  EVENT_TYPE_PKG-END_SIM_PKG.ADS 


FileName : 
Author : 

Date : 

Proj  ect : 
Compiler: 
Description : 


Event  JType_Pkg . End_Sim_Pkg . ads 
Julian  Williams 
10  October  1998 

Janus/Warrior  Combat  Simulation  for  CAPS 
ObjectAda  for  Windows  Ver.  7.1.1  (Professional ) 

This  package  describes  basic  functions  and  procedures 
involving  event  types  in  the  Warrior  Combat  Simulation  model. 


PACKAGE  Event_Type_Pkg.End_Sim_Pkg  IS 

TYPE  End  Sim_EventJType  IS  NEW  EventJType  WITH  PRIVATE; 


—  t  FUNCTION  Execute_Event 

— [  Pre:  An  end  simulation  event  has  been  extracted  from  the  event 

— |  queue  and  needs  to  be  executed. 

—  I  Post:  End  Simulation  is  executed  and  time  executed  is  returned. 


FUNCTION  ExecuteJEvent  (Event:  IN  End_Sim_Event  JType)  RETURN 

Game  JT  ime  JType  ; 
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— i  PROCEDURE  Construct_Event 
— j  Pre:  No  event  exist. 

—  1  Post:  A  move  event  is  constructed  and  the  event  is  returned. 


FUNCTION  Const ruct_Event  (Object_Ptr:  IN  SimulationjDbj ect_Ptr ; 

Time:  IN  Game_Time_Type ) 

RETURN  Event_Type_Ptr; 


— |  PROCEDURE  Copy_Event 

—  1  Pre:  An  event  exist. 

—  I  Post:  The  event  is  copied  and  the  copy  is  returned. 


FUNCTION  Copy_Event  {Event:  IN  End_SimJEvent_Type)  RETURN  Event_Type_Ptr; 
PRIVATE 

TYPE  End_Sim_Event_Type  IS  NEW  EventJType  WITH  NULL  RECORD; 

END  Event_Type_Pkg . End_Sim_Pkg; 

35.  EVENTTYPEPKG-ENDSIMPKG.ADB 


FileName: 
Author: 

Date : 

Project : 
Compiler : 
Description: 
involving 

—  I 


Event_Type_Pkg . End_Sim_Pkg . adb 
Julian  Williams 
10  October  1998 

Janus/Warrior  Combat  Simulation  for  CAPS 
ObjectAda  for  Windows  Ver.  7.1.1  (Professional) 

This  package  describes  basic  functions  and  procedures 

event  types  in  the  Warrior  Combat  Simulation  model. 


WITH  Warrior_l_Static_Schedulers;  USE  Warrior_l_Static_Schedulers ; 
WITH  Warrior_l_Dynamic_Schedulers ;  USE  Warrior_l_Dynamic_Schedulers ; 
WITH  Panel_Gui_3 ; 

WITH  warrior_event__monitor__taskj?kg; 

PACKAGE  BODY  Event_Type_Pkg. End_Sim_Pkg  IS 


—  I  FUNCTION  Execute_Event 

—  I  Pre:  An  end  simulation  event  has  been  extracted  from  the  event 

— j  queue  and  needs  to  be  executed. 

—  I  Post:  End  simulation  is  executed  and  time  executed  is  returned. 


FUNCTION  Execute__Event  {Event:  IN  End_Sim_Event_Type) 

RETURN  Game_Time_Type  IS 

Time  :  Game_Time_Type  : =  Event. Time; 

BEGIN  —  Execute_Event 
Stop_Static_Schedule; 

Stop_Dynamic_Schedule; 

Panel_Gui_3 . End_Simulation; 

warrior_event_monitor_task__p)cg.  warrior_event__monitor_task .  end_task; 
RETURN  Time; 

END  Execute  Event; 


— |  PROCEDURE  Construct_Event 

—  |  Pre:  No  event  exist. 

—  I  Post:  A  move  event  is  constructed  and  the  event  is  returned. 


FUNCTION  Construct_Event  (Object_Ptr:  IN  Simulation_Obj ect_Ptr ; 
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Event :  Event_Type_Ptr ; 


Time:  IN  Game_Time_Type ) 
RETURN  Event_Type_Ptr  IS 


BEGIN  — 
Event  := 


NEW  End_Sim_Event_Type '  (Action  => 

Object_Ptr  => 
Time  => 


EndSimulation, 
Object_Ptr , 
Time)  ; 


RETURN  Event; 

END  Construct  Event; 


—  I  PROCEDURE  Copy_Event 

—  I  Pre:  An  event  exist. 

— |  Post:  The  event  is  copied  and  the  copy  is  returned. 


FUNCTION  Copy_Event  (Event:  IN  End_Sim_Event_Type)  RETURN  Event_Type_Ptr  IS 
Copy:  Event_Type_Ptr ; 

BEGIN  —  Copy_Event 

Copy  :=  Construct_Event (  Get_Object{  Event  ),  Get_Event_Time (  Event  )); 
RETURN  Copy; 

END  Copy_Event; 

END  Event_Type_Pkg . End_Sim_Pkg; 

36.  EVENT_TYPE_PKG-MOVE_PKG.ADS 


FileName  :  Event__Type_Pkg .  Move_Pkg .  ads 

Author:  Julian  Williams 

Date:  10  October  1998 

Project:  Janus /Warrior  Combat  Simulation  for  CAPS 

Compiler:  .ObjectAda  for  Windows  Ver.  7.1.1  ( Professional ) 

Description:  This  package  describes  basic  functions  and  procedures 

involving  event  types  in  the  Warrior  Combat  Simulation  model. 


PACKAGE  Event_Type_Pkg.Move_Pkg  IS 

TYPE  Move_Event_Type  IS  NEW  Event_Type  WITH  PRIVATE; 


—  I  FUNCTION  Execute_Event 

— |  Pre:  A  move  event  has  been  extracted  from  the  event  queue  and  needs 

— |  to  be  executed. 

— |  Post:  Move  event  is  executed  and  time  executed  is  returned. 


FUNCTION  Execute_Event  (Event:  IN  Move_Event__Type)  RETURN  Game_Time_Type ; 


— |  PROCEDURE  Construct_Event 
— |  Pre:  No  event  exist. 

— |  Post:  A  move  event  is  constructed  and  the  event  is  returned. 


FUNCTION  Construct_Event  (Object_Ptr:  IN  Simulation_Ob j ect_Ptr ; 

Time:  IN  Game_Time_Type ) 

RETURN  Event_Type_Ptr ; 


—  I 

—  I 

—  I 


PROCEDURE  Copy_Event 

Pre:  An  move  event  exist. 

Post:  The  move  event  is  copied  and  a  pointer  to  the  copy  is 

returned. 
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FUNCTION  CopyJEvent  (Event:  IN  Move_Event_Type)  RETURN  Event_Type_Ptr; 


PRIVATE 

TYPE  Move_Event_Type  IS  NEW  Event_Type  WITH  NULL  RECORD; 
END  Event_Type_Pkg.Move_Pkg; 


37.  EVENTJTYPE_PKG-MOVE_PKG.ADB 


FileName : 
Author : 

Date : 

Project : 

Compiler: 

Description: 


Event_Type_Pkg . Move_Pkg . adb 
Julian  Williams 
10  October  1998 

Janus/Warrior  Combat  Simulation  for  CAPS 
ObjectAda  for  Windows  Ver.  7.1.1  (Professional) 

This  package  describes  basic  functions  and  procedures 
involving  event  types  in  the  Warrior  Combat  Simulation 
model . 


PACKAGE  BODY  Event  __Type_Pkg . Move_Pkg  IS 


— |  FUNCTION  Execute_Event 

-- 1  Pre :  An  move  event  has  been  extracted  from  the  event  queue 

--|  and  needs  to  be  executed. 

— |  Post:  Move  event  is  executed  and  time  executed  is  returned. 


FUNCTION  Execute_Event  (Event:  IN  Move_Event_Type) 

RETURN  Game_Time_Type  IS 

Time :  Game_Time_Type ; 

BEGIN  --  Execute__Event 

Time  :  =  Get__Event__Time  (Event )  ; 

Move^Update^Obj (  GetjObject (Event) . ALL,  Time  ) ; 

RETURN  Time; 

END  Execute  Event; 


— |  PROCEDURE  Construct_Event 
— |  Pre:  No  event  exist. 

—  I  Post:  A  move  event  is  -constructed  and  the  event  is  returned. 


FUNCTION  Construct  Event 


Event :  Event_Type_Ptr ; 


(Ob j ect_Ptr :  IN  Simulation_Obj ect_Ptr ; 
Time:  IN  Game_Time_Type) 

RETURN  Event_Type_Ptr  IS 


BEGIN  — 

Event  :=  NEW  Move_Event__Type 1  (Action  => 

Object_Ptr  => 
Time  => 


MoveUpdateObj , 
Object_Ptr, 
Time)  ; 


RETURN  Event; 

END  Construct  Event; 
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—  I  PROCEDURE  Copy_Event 
--I  Pre:  An  event  exist. 

--I  Post:  The  event  is  copied  and  the  copy  is  returned. 

FUNCTION  Copy_Event  (Event:  IN  Move_Event_Type ) 

RETURN  Event_Type_Ptr  IS 

Copy :  Event__Type_Pt r ; 

BEGIN  --  Copy_Event 

IF  Get_Obj ect (  Event  )  /=  NULL  THEN 

Copy  :=  Construct_Event (  Copy_Obj  (  Get_Obj ect (Event ) .ALL  ), 

Get__Event_Time  (  Event  )  )  ; 

ELSE 

Copy  Construct_Event (  NULL,  Get_Event_Time (Event )  ); 

END  IF; 

RETURN  Copy; 

END  Copy_Event ; 

END  Event_Type__Pkg.Move_Pkg; 

38.  GAME_TIME_TYPE_PKG.ADS 

package  game_time_type_pkg  is 

subtype  game_time_type  is  integer  range  -*1  ..  integer 1  last ; 
never:  constant  game_time_type  :=  -1; 
function  zero  return  game_time_type; 
end  game_time_type_pkg; 

39.  GAME_TIME_TYPE_PKG.ADB 

package  body  game_time__type_pkg  is 

function  zero  return  game_time__type  is 
begin 

return  game_time_type  (0)  ; 
end  zero; 

end  game_time_type_j?kg; 

40.  GENERATED JTAE_E\^NT_MONITOR_PKG.ADS 

with  Interfaces . C; 
use  Interfaces . C; 

with  linker__options_pragma_pkg; 

package  generated_tae__event_monitor_pkg  is 

procedure  generated_tae_event_monitor ; 
pragma  Import (C,  generated_tae_event_monitor , 

"generated_tae_event_monitor" )  ; 

end  genera ted_tae__event_monitor__pkg; 

41.  GETRE30PKG.ADS 

with  replay_request_type_pkg;  use  replay_request_type_pkg; 
package  get__re_30_pkg  is 

procedure  get_re_30 (replay_request  :  out  replay_request_type) ; 
procedure  record_input ( replay_request  :  in  replay_request_type) ; 
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function  has__new_input  return  boolean; 

—  True  iff  a  user  input  has  arrived 

—  since  the  last  time  this  bubble  was  executed, 
end  get_re_30_jpkg; 

42.  GETJRE30PKG.ADB 

with  psdl_streams ;  use  psdl_streams ; 
package  body  get_re_30_pkg  is 

package  replay_request_buf fer  is  new 
sampled_buf fer (replay_request_type) ; 
use  replay_request_buf fer; 

procedure  get_re_30 (replay_request  :  out  replay_request_type)  is 
begin 

—  Get  the  value  from  replay_request_buf fer 
buffer. read (replay_request) ; 
end  get_re_30; 

procedure  record_input {replay_request  :  in  replay_request_type)  is 
begin 

—  Save  the  value  in  replay_request_buf fer 
buffer. write (replay_request) ; 
end  record_input; 

function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  replay_request_buf fer 
return  new_data; 
end  has_new_input ; 
end  get_re_30_pkg; 

43.  GET_ST_27_PKG.ADS 

with  statistics_request_type_pkg;  use  statistics_request_type_pkg; 
package  get_st_27_pkg  is 

procedure  get_st_27 (statistics_request  :  out  statistics_request_type) ; 
procedure  record_input (statistics_request  :  in  statistics_request_type) ; 
function  has_new_input  return  boolean; 

—  True  iff  a  user  input  has  arrived 

—  since  the  last  time  this  bubble  was  executed, 
end  get_st_27_pkg; 

44.  GETJST_27_PKG.ADB 

with  psdl_streams ;  use  psdl_streams; 
package  body  get_st_27_pkg  is 

package  statistics_request_buf fer  is  new 
sampled_buf fer (statistics_request_type) ; 
use  statistics_request__buf fer ; 

procedure  get_st_27 (statistics_request  :  out  statistics_request_type)  is 
begin 

—  Get  the  value  from  statistics_request_buf fer 
buffer . read (statistics_request) ; 
end  get_st_27; 

procedure  record_input (statistics_request  :  in  statistics_request_type)  is 
begin 

—  Save  the  value  in  statistics_request_buf fer 
buffer. write ( statistics_request ) ; 
end  record_input ; 
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function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  statistics_request_buf fer 
return  new_data; 
end  has_new_input ; 
end  get_st_27_pkg; 

45.  GET_USER_IN_21_PKG.ADS 

with  user__interaction_type_pkg;  use  user_interaction_type_pkg; 
package  get__user_in_21_pkg  is 

procedure  get_user_in_21 (user_interaction  :  out  user_interaction_type) ; 
procedure  record_input (user_interaction  :  in  user_interaction_type) ; 
function  has_new__input  return  boolean; 

—  True  iff  a  user  input  has  arrived 

—  since  the  last  time  this  bubble  was  executed, 
end  get_user_in__21_pkg; 

46.  GET_USER_IN_21_PKG.ADB 

with  psdl_streams;  use  psdl_streams ; 
package  body  get_user_in_21_pkg  is 

package  user_interaction__buf fer  is  new 
sampled_buffer (user_interaction_type) ; 
use  user__interaction_buf fer ; 

procedure  get__user_in__21  (user_interaction  :  out  user_interaction_type}  is 
begin 

—  Get  the  value  from  user_interaction_buf fer 
buffer . read (user_interaction) ; 
end  get_user_in_21 ; 

procedure  record_input (user_interaction  :  in  user_interaction_type)  is 
begin 

—  Save  the  value  in  user_interaction_buf fer 
buffer .write (user_interaction)  ; 
end  record_ji.nput ; 

function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  user_interaction_buf fer 
return  new_data; 
end  has_new_input ; 
end  get_user_in_21_pkg; 

47.  GET_X_65JPKG.ADS 

package  get_x_65_pkg  is 

procedure  get_x_65 (new_x  :  out  float); 
procedure  record_input (new_x  :  in  float); 
function  has_new_input  return  boolean; 

—  True  iff  a  user  input  has  .arrived 

—  since  the  last  time  this  bubble  was  executed, 
end  get_x__65_pkg; 

48.  GET_X_65_PKG.ADB 

with  psdl_streams ;  use  psdl_st reams; 
package  body  get_x_65_pkg  is 
package  new_x_buffer  is  new 
sampled_buf fer ( float) ; 
use  new  x  buffer; 
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procedure  get_x_65  (new__x  :  out  float)  is 
begin 

—  Get  the  value  from  new_x_buffer 
buffer . read (new_x) ; 
end  get_x_65; 

procedure  record__input  (new_x  :  in  float)  is 
begin 

—  Save  the  value  in  new_x_buffer 
buffer .write (new_x) ; 
end  record_input; 

function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  new_x_buffer 
return  new_data; 
end  has_new_input ; 
end  get_x_6  5_pkg ; 

49.  GETY68PKG.ADS 

package  get_y_68_pkg  is 

procedure  get_y_68 <new_y  :  out  float); 
procedure  record__input  (new_y  :  in  float); 
function  has_new_input  return  boolean; 

—  True  iff  a  user  input  has  arrived 
—  since  the  last  time  this  bubble  was  executed, 
end  get_y_68_pkg; 

50.  GETY68PKG.ADB 

with  psdl^streams; .  use  psdl_streams ; 
package  body  get_y_68_pkg  is 
package  new_y_buffer  is  new 
sampled_buf fer (float ) ; 
use  new_y_buf fer; 

procedure  9^t_y_68 (new_y  :  out  float)  is 
begin 

—  Get  the  value  from  new_y_buffer 
buffer . read (new_y) ; 
end  get_y_68; 

procedure  record_input (new_y  :  in  float)  is 
begin 

—  Save  the  value  in  new_y_buffer 
buffer. write (new_y) ; 
end  record_input; 

function  has_new_input  return  boolean  is 
begin 

—  Check  status  of  new_y_buffer 
return  new_data; 
end  has_new_input ; 
end  get_y_68_pkg; 

51.  GUIE  VENTMONIT  OR_l  8PKG.  ADS 

package  gui_event_monitor_18_pkg  is 
procedure  gui_event_monitor_18 ; 
end  gui_event_monitor_18_pkg; 

52.  GUI_EVENT_MONITOR_18_PKG.ADB 
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with  warrior_event_monitor_task_pkg; 
use  warrior_event_monitor_task_pkg; 
package  body  gui_event_monitor_18_pkg  is 
procedure  gui_event_monitor_18  is 
begin 

warrior_event_monitor_task. event_moni torment ry; 
end  gui_event_monitor__18 ; 
end  gui_eventjmonitor__18_pkg; 

53.  INITIAL_SCENARIO_40_PKG.ADS 

with  scenario_type_pkg;  use  scenario_type_pkg; 
package  initial_scenario_40_pkg  is 

procedure  initial__scenario_40  (scenario  :  out  scenario_type; 

first_time  :  in  out  boolean) ; 

end  initial_scenario_40_pkg; 

54.  INITIAL_SCENARIO_40_PKG.ADB 

package  body  initial_scenario_40j?kg  is 

procedure  initial_scenario_40 (scenario  :  out  scenario_type; 

first_time  :  in  out  boolean)  is 

begin 

initialize_scenario (scenario) ; 
first_time  :=  false; 
end  initial_scenario_40 ; 
end  initial_scenario_40jpkg; 

55.  JAAWS_12_PKG.ADS 

with  replay_request_type_pkg;  use  replay_request_type_pkg; 
with  location_type_pkg;  use  location_type_pkg; 
with  warrior_l__instantiations;  use  warrior_l_instantiations ; 
with  warrior_l_exceptions;  use  warrior_l_exceptions ; 

package  jaaws_12_pkg  is 

procedure  jaaws_12( 

simulation_history :  in  event_type_sequence ; 
replay_request :  in  out  replay_request_type; 
replay_position:  in  out  integer; 
replay:  out  location_type  ) ; 
end  jaaws__12_pkg; 

56.  JAAWS_12_PKG.ADB 

with  simulation_object_pkg;  use  simulation_object_pkg; 
with  event_type_pkg;  use  event_type_pkg; 

package  body  jaaws_12_pkg  is 

procedure  jaaws_12( 

simulation_history :  in  event_type_sequence; 
replay_request :  in  out  replay_request_type; 
replay_position:  in  out  integer; 
replay:  out  location_type  )  is 

—  Precondition:  not  is__empty (simulation_history) 

—  Precondition:  1  <=  replay_position  <=  length (simulation_history) 
i:  integer; 
e:  event_type_ptr ; 
o:  simulation_object_ptr; 
begin 

—  replay_position  =  previous  snapshot  location  or  1 
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—  Set  replay  to  the  previous  snapshot. 

e  :=  fetch ( simulation_history ,  replay_position) ; 
if  get_action (e . all)  -  MoveUpdateOb j  then 
o  :=  get_object (e.all)  ; 
replay  get_location (o . all) ; 
else  —  the  previous  position  is  not  at  a  move  event 
replay  :=  origin; 
end  if; 

—  Set  i  to  the  tentative  new  replay  position 
if  replay_request  =  on  then  —  reset  to  the  beginning 
replay_request  :=  off; 
i  1; 

—  e  :=  fetch (simulation_history,  i) ; 

—  o  :=  get_object (e . all) ; 

—  replay  :=  get_location (o . all) ; 

—  replay_position  :=  i; 

elsif  replayjposition  <  length (simulation_history)  then 
i  :=  replay_position  +  1; 

else  i  :=  replay_position;  —  Already  at  the  end,  stay  there, 
end  if; 

—  Advance  i  to  the  location  of  the  next  move  event  if  there  is  one. 

—  Invariant:  1  <=  i  <=  length (simulation_history) 

e  :=  fetch (simulation_history,  i) ; 
while  get__action  (e  .  all)  /=  MoveUpdateObj  loop 
if  i  <  length (simulation_history)  then 
i  i  +  1; 

e  fetch  ( simulation__history,  i)  ; 

else  --  There  is  no  next  move  event,  stay  at  the  previous  position. 

—  i  is  at  the  last  simulation  history  event  and  it  is  not 

—  a  MoveUpdateObj  event,  so  do  nothing 

—  replay_position  maintains  the  old  value 

—  replay  maintains  either  old  value  or  origin 

return; 

end  if; 
end  loop; 

—  i  is  at  a  new  MoveUpdateObj  event  position 
o  :=  get_object (e . all)  ; 

replay  get_location (o . all) ; 
replay_position  :=  i; 
end  jaaws_12; 

end  jaaws__12_j?kg; 

57.  LINKEROPTIONSPRAGMAPKG.ADS 

package  linker_options_pragma_pkg  is 

pragma  Linker_Options ("warrior_tae . c" ) ; 

pragma  Linker_Options  ( ”warrior__pan_gui_3  .  c" )  ; 

pragma  Linker_Options ( Mwarrior_creat_init . c" ) ; 

pragma  Linker_Opt ions ( "warrior_init_pan . c" ) ; 

pragma  Linker_Options ( "-I/local/tae/include" ) ; 

pragma  Linker_Options ( "/local/tae/lib/sun4 /libwpt . an) ; 

pragma  Linker_Options  (IVlocal/tae/Xtae/lib/sun4/libXtae.a,r)  ; 

pragma  Linker_Options (M/local/tae/Xtae/lib/sun4/libddo. a") ; 

pragma  Linker_Options ( "/local/tae/lib/sun4 /libwmw. a") ; 

pragma  Linker_Options (”/local/tae/Xtae/lib/sun4/libIV. a") ; 

pragma  Linker_Options  (f,/local/tae/Xtae/lib/sun4/libxterm.a,,)  ; 

pragma  LinkerjDptions ( " /usr/lib/libXm. a" ) ; 

pragma  Linker_Options ( H/usr/lib/libXt . an ) ; 

pragma  Linker_Options (n/usr/lib/libXmu. a”) ; 

pragma  Linker_Options ("/usr/lib/libXext . a") ; 
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pragma  Linker_Options ( "/usr/lib/libXll .a”) ; 
pragma  Linker_Options ( H/local/tae/lib/sun4 /libtaec . a") ; 
pragma  Linker_Options ( ”/local/tae/lib/sun4 /libtae . a" ) ; 
pragma  LinkerjDptions ( "/usr/lib/libtermlib. a" ) ; 
pragma  Linker_Options ( "/usr/lib/libm. a" ) ; 
pragma  Linker_0ptions ( "/usr/local/lib/libcxx. a")  ; 
end  linker_options_pragma_j?kg; 

58.  LOCATIONTYPEPKG.ADS 

package  location_type_pkg  is 

type  Location_Type  is  record 

X  :  Float  :=  0.0; 

Y  :  Float  :=  0.0; 

Z  :  Float  :=  0.0; 

end  record; 

FUNCTION  "+"  (LI, L2  :  Location_Type)  RETURN  LocationJType ; 
FUNCTION  (L1,L2  :  Location_Type)  RETURN  LocationJType; 

FUNCTION  (C  :  Float;  L  :  Location_Type)  RETURN  LocationJType; 

FUNCTION  Length  (L  :  Location_Type)  RETURN  Float; 

FUNCTION  "="  (L1,L2  :  Location_Type )  RETURN  Boolean; 

FUNCTION  Get_X  <L  :  Location_Type)  RETURN  Float; 

FUNCTION  Get_Y  (L  :  Location_Type)  RETURN  Float; 

FUNCTION  Origin  RETURN  LocationJType; 

FUNCTION  To_Location (X,  Y:  Float)  RETURN  LocationJType; 
end  location_type_pkg; 

59.  LOCATIONTYPEPKG.ADB 


File  Name:  Location_Type_Pkg . Adb 


WITH  Ada .Numerics . Elementary_Functions ;  — Used  for  Square  Root 

USE  Ada . Numerics . Elementary_Functions ; 

PACKAGE  BODY  LocationJType_Pkg  IS 

FUNCTION  "+M  (L1,L2  :  Location_Type )  RETURN  Location_Type  IS 
BEGIN 

RETURN  (X=>  Ll.X  +  L2.X,  Y=>  Ll.Y  +  L2.Y,  Z=>  Ll.Z  +  L2.Z); 
END; 

FUNCTION  ,,-n  (L1,L2  :  Location_Type)  RETURN  Location_Type  IS 
BEGIN 

RETURN  (X->  Ll.X  -  L2.X,  Y=>  Ll.Y  -  L2.Y,  Z=>  Ll.Z  -  L2.Z); 
END; 

FUNCTION  (C  :  Float;  L  :  Location_Type )  RETURN  LocationJType  IS 

BEGIN 

RETURN  (X=>  C  *  L . X,  Y=>  C  *  L . Y,  Z=>  C  *  L.Z}; 

END; 

FUNCTION  Length  (L  :  LocationJType)  RETURN  Float  IS 
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BEGIN 

RETURN  Sqrt ( (L.X  *  L.X)  +  (L.Y  *  L.Y)  +  (L.Z  *  L.Z)); 
END; 

FUNCTION  (LI , L2  :  Location_Type)  RETURN  Boolean  IS 

BEGIN 

RETURN  (LI . X=L2 . X  AND  Ll.Y=L2.Y  AND  L1.Z-L2.Z); 

END; 

FUNCTION  Get_X  (L  :  Location_Type)  RETURN  Float  IS 
BEGIN 

RETURN  L.X; 

END; 

FUNCTION  Get_Y  (L  :  Location_Type)  RETURN  Float  IS 
BEGIN 

RETURN  L.Y; 

END; 

FUNCTION  Origin  RETURN  Location_Type  IS 

L  :  Location_Type : = (X=>0 . 0,  Y=>0.0,  Z=>0.0); 

BEGIN 

RETURN  L; 

END; 

FUNCTION  To_Location(X,  Y:  Float)  RETURN  Location_Type  IS 
L  :  LocationJType:=(X=>X,  Y=>Y,  Z=>0.0); 

BEGIN 

RETURN  L; 

END; 

END  Location_Type_Pkg; 

60.  LOOKAHEADSTREAMPKG.ADS 

with  io_exceptions; 

with  delimiter_pkg;  use  delimiter_pkg; 
package  lookahead_streamj?kg  is 
function  token  return  character; 

—  Returns  the  next  non-blank  character  without  removing  it 
—  Raises  constraint_error  if  no  more  tokens  in  the  buffer. 

procedure  skip_char;  —  removes  the  current  character. 

end__error:  exception  renames  io_exceptions . end_error ; 

—  Attempt  to  read  past  end  of  file, 
end  lookahead_strearnj?kg; 

61.  LOOKAHEAD_STREAM_PKG.ADB 

with  text__io;  use  text__io; 
package  body  lookahead_stream_pkg  is 

blank:  constant  delimiter_array  :=  initialize_delimiter_array 
buffer:  character; 
empty:  boolean  :=  true; 

—  (-empty  =>  buffer  is  the  next  character  in  the  stream) . 

function  peek  return  character  is 
begin 

if  empty  then  get(buffer);  empty  :=  false;  end  if; 
return  buffer; 
end  peek; 
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function  token  return  character  is 
—  Blank  is  a  constant  array,  see  top  of  package  body, 
begin 

—  Advance  the  lookahead  stream  to  a  non-blank  character, 
while  blank (peek)  loop  skip_char;  end  loop; 

Return  the  character  without  removing  it  from  the  stream, 
return  peek; 
end  token; 

procedure  skip__char  is 
begin 

if  empty  then  get (buffer) ;  —  Read  and  discard  next  character, 

else  empty  :=  true;  end  if;  —  Discard  character  in  the  buffer, 
end  skip_char; 
end  lookahead_stream_pkg; 

62.  NATURALSETIOPKG.ADS 

with  natural_set__pkg; 
with  text_io; 
with  integer_io; 

package  natural_set_io_pkg  is 

procedure  put(ns:  in  natural_set_pkg. set) ; 

end  natural_set_io_pkg; 

63.  NATURALSETIOPKG.ADB 

package  body  natural_set_io_pkg  is 

package  natural_io  is  new  text_io . integer_io (NATURAL) ; 

procedure  put_n(i:  in  natural)  is 
begin 

natural_io . put (i) ; 
end  put_n; 

procedure  mput  is  new  natural_set_pkg . generic_put (put_n) ; 

procedure  put (ns:  in  natural_set_pkg . set )  is 
begin 

mput (ns ) ; 
end  put; 

end  natural_set_io_pkg; 

64.  NATURAL_SET_PKG.ADS 

with  set_pkg; 

package  natural_set_pkg  is  NEW  s et_p kg (NATURAL, ) ; 

65.  PANEL_GUI_3.ADS 

with  Interfaces . C; 
use  Interfaces . C; 

with  statistics_type_pkg; 
use  statistics_type_pkg; 
with  location_type_pkg; 
use  location_type_pkg; 
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package  panel_gui_3  is 

—  procedures  for  calling  c  routines  to  display  info  to  GUI 
procedure  display_st_31 (statistics :  in  statistics_type) ; 
procedure  display_re_37 (replay:  in  location_type) ; 


—  procedures  to  be  called  by  the  c  routines  to  handle  push  button  events 
procedure  set_user_interaction; 

pragma  Export (C,  set__user_interaction,  "set__user_interaction" )  ; 
procedure  set_statistics_request ; 

pragma  Export (C,  set_statistics_request ,  "set_statistics_request" ) ; 
procedure  set_replay_re quest; 

pragma  Export (C,  set_replay_request ,  "set_replay__request" ) ; 
procedure  set_new_plan; 

pragma  Export (C,  set_new_plan,  "set_new_plan" } ; 
procedure  end_simulation; 

pragma  Import (C,  end_simulation,  "end^simulation" ) ; 

procedure  set_x(x  :  in  double); 
pragma  Export (C,  set_x,  "set_x") ; 

procedure  set_y(y  :  in  double); 
pragma  Export (C,  set_y,  "set_y" ) ; 

procedure  initialize_gui; 

pragma  Import  (C,  initialize_gui,  "initialize_gui,, )  ; 
end  panel_gui_3; 

66.  PANELGUI3.ADB 

with  Interfaces . C; 
use  Interfaces . C; 

with  statistics_type_pkg; 
use  statistics_type_pkg; 
with  location_type_pkg; 
use  location_type_pkg; 
with  replay_request_type_j?kg; 
use  replay_request_type_pkg; 
with  statistics_request_type_pkg; 
use  statistics__request_type_pkg; 
with  user_interaction_type_pkg; 
use  user_interaction_type_pkg; 

with  get_user_in_21_pkg; 

with  get_st_27_pkg; 

with  get_re__30_pkg; 

with  get_x_65_pkg; 

with  get_y_68_pkg; 

with  enter_new_plan_75_pkg; 

with  text_io; 

with  ada. f loat_text_io; 

use  ada. float  text  io; 
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package  body  panel_gui_3  is 


procedure  display_fuel_consumption (c :  in  double); 

pragma  Import (C,  display_fuel_consumption,  ,,display_fuel_consumption" ) 

procedure  display_xloc (x :  in  double); 

pragma  Import (C,  display_xloc,  "display_xloc" ) ; 

procedure  display_yloc (y:  in  double); 

pragma  Import (C,  display_yloc/  "display_yloc" ) ; 

procedure  display_mover (x,  y:  in  double); 
pragma  Import (C,  displayjnover,  Mdisplay_mover") ; 

procedure  display_st_31 (statistics :  statistics_type)  is 

d  :  double  :=  double (statistics_type_pkg . convert (statistics )) ; 

begin 


display_fuel_consumption (d)  ; 
end  display_st__31; 

procedure  display_re_37 (replay:  location_type)  is 
x,  y  :  double; 

begin 

--  need  code  to  extract  x,  y  from  location  type; 

—  set  x,  y  to  dummy  value  5.0,  -5.0  for  the  time  being 
x  :=  double  (location_type_pkg. get_x (replay) ) ; 
y  : =  double ( location_type_pkg . get_y ( replay) ) ; 
display_xloc <x) ; 
display_yloc (y)  ; 
displayjmover (x,  y)  ; 
end  display_re_37 ; 

procedure  set_user_interaction  is 
v  :  user_interaction_type 

: =  user_interaction_type_pkg . stop_simulation; 

begin 

get_user_in_21_pkg. record_input (v) ; 
end  set_user_interaction  ; 

procedure  set_statistics_request  is 

v  :  statistics_request_type  :  =  statistics_request_type_pkg . on; 

begin 

get_st_27_pkg .  record__input  (v)  ; 
end  set_statistics_request  ; 

procedure  set_replay_request  is 

v  :  replay_request_type  replay_request_type_pkg. on; 

begin 

get_re__30_pkg.  record_input  (v)  ; 
end  set_replay_request ; 

procedure  set_new_plan  is 
begin 

enter_new_plan_7  5__pkg .  record_input  (true)  ; 
end  set_new_plan; 

procedure  set_x(x  :  in  double)  is 
begin 

get_x_65_pkg. record^input (float (x) ) ; 
end  set  x; 
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procedure  set_y(y  :  in  double)  is 
begin 

get_y_68_pkg. record_input  (float  (y)  )  ; 
end  set_y; 

end  panel_gui_3; 

67.  POST_PROCESSOR_6_PKG.ADS 

with  statistics_request_type_pkg;  use  statistics_request_type_pkg; 
with  statistics_type_pkg;  use  statistics_type_pkg; 
with  warrior_l_instantiations ;  use  warrior_l_instantiations ; 
with  warrior_l_exceptions ;  use  warrior_l_exceptions; 

package  post_processor_6_pkg  is 

procedure  postj?rocessor_6 ( 

statistics_request :  in  statistics_request_type; 
s imulationjii story :  in  event_type_sequence; 
statistics:  out  statistics_type  ); 
end  post_processor_6_pkg; 

68.  POSTJPROCESSOR6PKG.ADB 

with  simulation_object_pkg;  use  simulation_object_pkg; 
with  event_type_pkg;  use  event_type_pkg; 
package  body  post_processor_6_pkg  is 

procedure  post_processor_6 ( 

statistics_request :  in  statistics_request_type; 
s imulat ion_history :  in  event_type_sequence ; 
statistics:  out  statistics_type  )  is 
o:  s imulat ion_object_ptr; 
e:  event_type_ptr; 
fuel_used:  float  :=  0.0; 
begin 

—  This  version  assumes  a  vehicle  never  refuels 
for  i  IN  1  ..  length (simulation_history)  loop 
e  :=  fetch (s imulat ion_hi story,  i) ; 
if  get_action (e . all)  =  MoveUpdateObj  then 
o  :=  get_object (e.all) ; 
fuel_used  :=  get_fuel_used (o. all) ; 
end  if; 
end  loop; 

statistics  :=  convert (fuel_used) ; 
end  post_processor_6; 
end  post_processor_6_pkg; 


69.  REPLAY_REQUEST_TYPE_PKG.ADS 

package  replay_request_type_pkg  is 
type  replay_request_type  is  private; 

function  on  return  replay_request_type; 

function  off  return  replay_request_type; 

private 

type  replay_request_type  is  new  boolean; 
end  replay_request_type_pkg; 
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70.  REPLAYREQUESTTYPEPKG.ADB 

package  body  replay_request_type_pkg  is 

function  on  return  replay_request_type  is 
begin 

return  true; 
end  on; 

function  off  return  replay__request_type  is 
begin 

return  false; 
end  off; 

end  replay_request_type_pkg; 


71.  SCENARIO_TYPE_PKG.ADS 

with  Simulation_Object_Pkg;  use  Simulation_Ob ject_Pkg; 
package  scenario_type_pkg  is 
type  scenario__type  is  private; 


PROCEDURE  Initialize_Scenario (Scl  :  OUT  ScenarioJType ) ; 


function  empty_scenario  return  scenario_type; 
function  is_empty(SCl  :  Scenario_Type)  return  boolean; 


function  get_unit(SCl  :  Scenario_Type)  RETURN  Simulation_Ob j ect_Ptr ; 


private 

type  scenario_type  is 
Scenario_Name  : 
Unit  : 

could  be  List 

— Terrain  : 

— Weather  : 

end  record; 


record 

String (1 .. 20)  :=  "empty  scenario  "; 

Simulation_Object_Ptr  :=  NULL;  — Now  only  1  ob j , 

Terrain_Type; 

Weather__Type; 


end  scenario_type_pkg; 


72.  SCENARIO  JTYPEJ>KG.ADB 

WITH  Simulation_Object_Pkg . Ground_Object_Pkg . Tank_Pkg; 

USE  Simulation_Object_Pkg . Ground_Ob ject_Pkg . Tank_Pkg; 

PACKAGE  BODY  Scenario_Type_Pkg  IS 

function  get_unit(SCl  :  Scenario__Type)  RETURN  Simulation_Ob j ect_Ptr  IS 
BEGIN 

RETURN  SCI. Unit; 

END; 


function  empty_scenario  return  scenario_type  is 
dummy  :  scenario_type; 
begin 

return  dummy; 
end  empty_scenario; 

function  is_empty(SCl  :  Scenario_Type)  return  boolean  is 
begin 

return  SCI. Unit  =  null; 
end  is_empty; 

PROCEDURE  Initialize_Scenario (Scl  :  OUT  Scenario_Type )  IS 
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BEGIN 

Scl .  Scenario_Name :  ^"Scenario  One 

Scl.Unit  :=  Construct_Obj  (Scheduled  =>  False, 

Name  =>  "M1A1 

Symbol  =>  1, 

Force  =>  1, 

Move_Period  =>  10, 

Active  =>  True, 

Location_x  =>  -100.0, 

Location_y  =>  -100.0, 

Destination_x  =>  3000.0, 

Destination_y  =>  3000.0, 

Speed  =>  10.0, 

Max_Speed  =>  25.0, 

Fuel  «>  500.0, 

Consumption  =>  0.36); 

END; 

END  Scenario_Type_Pkg; 

73.  SEQUENCEPKG.ADS 

with  natural_set_pkg; 

with  text_io; 

use  text_io; 

generic 

type  t  is  private; 

package  sequence_pkg  is 

type  sequence  is  private; 

subtype  natural_set  is  natural_set_pkg . set ; 

function  empty  return  sequence; 

procedure  empty (ss  :  out  sequence); 

function  add(x  :  t;  s  ;  sequence)  return  sequence; 

procedure  add(x  :  in  t;  s  :  in  sequence;  ss  :  out  sequence); 

generic 

with  function  equal (x,  y  :  t)  return  boolean  is  <>; 
function  remove (x  :  t;  s  :  sequence)  return  sequence; 
function  append (si,  s2  :  sequence)  return  sequence; 
procedure  append(sl,  s2  :  in  sequence;  ss  :  out  sequence); 
function  fetch (s  :  sequence;  n  :  natural)  return  t; 
procedure  fetch (s  :  in  sequence;  n  :  in  natural;  tt  :  out  t)  ; 
function  fetch (si  ;  sequence;  low,  high  :  natural)  return  sequence; 
procedure  fetch (si  :  in  sequence;  low,  high  :  in  natural;  ss  :  out  sequence) 
function  length (s  :  sequence)  return  natural; 
procedure  length (s  :  in  sequence;  nn  :  out  natural); 
function  domain (s  ;  sequence)  return  natural_set; 
procedure  domain (s  :  in  sequence;  ns  :  out  natural_set) ; 
generic 

with  function  equal (x,  y  :  t).  return  boolean  is  <>; 
function  is_in(x  :  t;  s  :  sequence)  return  boolean; 
generic 

with  function  equal (x,  y  ;  t)  return  boolean  is  <>; 
function  part_of(sl,  s2  :  sequence)  return  boolean; 
generic 

with  function  equal (x,  y  :  t)  return  boolean  is  <>; 
function  generic_equal (si ,  s2  :  sequence)  return  boolean; 
generic 

with  function  "<"  (x,  y  :  t)  return  boolean  is  <>; 
function  less_than (si,  s2  :  sequence)  return  boolean; 
generic 
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with  function  "<"  (x,  y  :  t)  return  boolean  is  <>; 
with  function  equal (x,  y  :  t)  return  boolean  is  <>; 
function  less_than_or_equal (si ,  s2  :  sequence)  return  boolean; 
generic 

with  function  "<”  (x,  y  :  t)  return  boolean  is  <>; 
function  greater_than (si ,  s2  :  sequence)  return  boolean; 
generic 

with  function  "<"  (x,  y  :  t)  return  boolean  is  <>; 
with  function  equal (x,  y  :  t)  return  boolean  is  <>; 
function  greater_or_equal (si,  s2  :  sequence)  return  boolean; 
generic 

with  function  equal (x,  y  :  t)  return  boolean  is  <>; 
function  subsequence (si ,  s2  :  sequence)  return  boolean; 
generic 

with  function  "<"  (x,  y  :  t)  return  boolean  is  <>; 
with  function  successor (x  :  t)  return  t; 
function  interval (xl,  x2  :  t)  return  sequence; 
generic 

type  et  is  private; 
type  st  is  private; 
with  function  f(x  :  et)  return  t; 

with  function  length (s  :  st)  return  natural  is  <>; 
with  function  fetch (s  :  st;  n  :  natural)  return  et  is  <>; 
function  apply (si  :  st)  return  sequence; 
generic 

with  function  f(x,  y  :  t)  return  t; 
identity  :  t; 

function  reduce (s  :  sequence)  return  t; 
generic 

with  function  f(x,  y  :  t)  return  t; 
function  reducel (s  :  sequence)  return  t; 
generic 

with  procedure  generate (xl  :  in  t)  ; 
procedure  scan(s  :  sequence); 
generic 

with  function  input  return  t  is  <>; 
function  generic__input  return  sequence; 
generic 

with  function  input  return  t  is  <>; 
function  generic_f ile_input (file  :  file_type)  return  sequence; 
generic 

with  procedure  put (item  :  in  t)  is  <>; 
procedure  generic_put (item  :  in  sequence); 
generic 

with  procedure  put (item  :  in  t)  is  <>; 
procedure  generic_f ile_put (f ile  :  in  file_type;  item  :  in  sequence) 
bounds__error  :  exception; 

empty_reduction_undef ined  :  exception; 
private 

type  sequence__record; 

type  sequence_ptr  is  access  sequence_record; 
type  sequence  is  record 
p  :  sequence_ptr  :=  null; 
end  record; 
end  sequence_pkg; 

74.  SEQUENCE  J>KG.ADB 

with  lookahead_stream_pkg; 
use  lookahead_stream_pkg; 
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package  body  sequence_pkg  is 
use  natural_set_pkg; 

type  sequence__record  is  record 
value  :  t; 
rest  :  sequence; 
end  record; 

function  empty  return  sequence  is 
s  :  sequence; 

begin 

return  s; 
end  empty; 

procedure  empty (ss  :  out  sequence)  is 
begin 

ss  :=  empty; 
end  empty; 

function  add(x  :  t;  s  :  sequence)  return  sequence  is 
si  :  sequence; 

begin 

if  s  =  empty. then 

sl.p  :=  new  sequence _recordf  (value  =>  x,  rest  =>  s) ; 
else 

sl.p  :=  new  sequence_record 1 (value  =>  s.p. value, 

rest  ~>  add(x,  s.p.rest)); 

end  if; 
return  si; 
end  add; 

procedure  add(x  :  in  t;  s  :  in  sequence;  ss  :  out  sequence)  is 
begin 

ss  : =  add (x,  s ) ; 
end  add; 

function  remove (x  :  t;  s  :  sequence)  return  sequence  is 
ss  :  sequence; 

local_x  :  t  :=  x; 

begin  —  begin  generator  loop 
declare 

exit__from__generator_loop  :  exception; 
procedure  generator__loop_body  (y  :  t)  is 
begin 

if  not  equal (local_x,  y)  then 
ss  : =  add (y,  ss) ; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 
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execute_generator_loop (s)  ; 
exception 

when  exit_f rom_generator_loop  => 
null; 

end;  --  of  generator  loop 

return  ss; 
end  remove; 

function  append (si,  s 2  :  sequence)  return  sequence  is 
ss  :  sequence; 

begin  --  begin  generator  loop 
declare 

exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (x  :  t)  is 
begin 

ss  :=  add(x,  ss) ; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new 

scan  (generator__loop_body)  ; 

begin 

execute_generator_loop (si) ; 
exception 

when  exit_f rom_generator_loop  => 
null ; 

end;  --  of  generator  loop 

declare  --  begin  generator  loop 

exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (x  :  t)  is 
begin 

ss  : =  add (x,  ss) ; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan ( generator_loop_body) 

begin 

execute_generator_loop (s2) ; 
exception 

when  exit__f rom_generator__loop  => 
null; 

end;  --  of  generator  loop 
return  ss; 
end  append; 

procedure  append (si,  s2  :  in  sequence;  ss  :  out  sequence)  i 
begin 

ss  :=  append (si,  s2); 
end  append; 

function  fetch (s  :  sequence;  n  :  natural)  return  t  is 
index  :  natural  :=  1; 

begin  —  begin  generator  loop 
declare 

generator_loop__return_value  :  t; 
return_f rom_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
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begin 


if  index  =  n  then 

generator_loop_return_value  :=  y; 
raise  return_from__generator_loop; 
end  if; 

index  :=  index  +  1; 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute_generator_loop (s) ; 
exception 

when  exit_f rom_generator_loop  => 
null; 

when  return_f  rom__generator_loop  => 
return  generator_loop_return_value ; 
end;  —  of  generator  loop 

raise  bounds_error ; 
end  fetch; 

procedure  fetch (s  :  in  sequence;  n  :  in  natural;  tt  :  out  t)  is 
begin 

tt  :  =  fetch (s,  n) ; 
end  fetch; 

function  fetch (si  ;  sequence;  low,  high  :  natural)  return  sequence  is 
ss  :  sequence; 

begin 

for  i  in  low  . .  high  loop 

ss  :=  add ( fetch (si,  i ) ,  ss); 
end  loop; 
return  ss; 
end  fetch; 

procedure  fetch (si  :  in  sequence;  low,  high  :  in  natural; 

ss  :  out  sequence)  is 

begin 

ss  :=  fetch  (si,  low,  high) ; 
end  fetch; 

function  length  (s  :  sequence)  return  natural  is 
index  :  natural  :=  0; 

begin  —  begin  generator  loop 
declare 

exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

index  index  +  1; 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute_generator_loop (s ) ; 
exception 
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when  exit__f rom_generator_loop  => 
null; 

end;  --  of  generator  loop 

return  index; 
end  length; 

procedure  length (s  :  in  sequence;  nn  :  out  natural)  is 
begin 

nn  : =  length (s )  ; 
end  length; 

function  domain (s  :  sequence)  return  natural_set  is 
ns  :  natural_set  :=  empty; 

begin 

for  i  in  1  ..  length (s)  loop 
ns  :=  add (i,  ns) ; 
end  loop; 
return  ns; 
end  domain; 

procedure  domain (s  :  in  sequence;  ns  :  out  natural_set)  is 
begin 

ns  :=  domain (s) ; 
end  domain; 

function  is__in(x  :  t;  s  :  sequence)  return  boolean  is 
local_x  :  t  :=  x; 

begin  —  begin  generator  loop 
declare 

generator__loop_return_value  :  boolean; 
return_from_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  equal  (local__x,  y)  then 

generator_loop_return_value  :=  true; 
raise  return_f rom_generator_loop; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body ) ; 

begin 

execute_generator_loop (s ) ; 
exception 

when  exit_from_generator_loop  => 
null; 

when  return_from__generator_loop  => 
return  generator_loop__return_value ; 
end;  —  of  generator  loop 

return  false; 
end  is_in; 

function  part_of(sl,  s2  :  sequence)  return  boolean  is 
n  :  natural  :=  0; 
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function  matches_at ( si,  s2 
i  :  natural  :=  0; 


sequence;  n  :  natural) 

return  boolean  is 


begin 

while  i  <  length (si)  loop 

if  equal (fetch (si,  i  +  1),  fetch(s2,  n  +  i) )  then 
i  :=  i  +  1; 


else 

return  false; 
end  if; 
end  loop; 
return  true; 
end  matches_at; 

begin 

while  n  +  length (si)  <=  length (s2)  loop 
if  matches_at (si,  s2,  n  +  1)  then 
return  true; 


else 

n  :  =  n  +  1  ; 
end  if; 
end  loop; 
return  false; 
end  part_of; 

function  generi coequal (si,  s2  :  sequence)  return  boolean  is 
i  :  natural  :=  1; 

local_s2  :  sequence  :=  s2; 

begin 

if  length (si)  /=  length (s2)  then 
return  false; 
end  if; 

declare  --  begin  generator  loop 

generator_loop_return__value  :  boolean; 
return_from_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (x  :  t)  is 
begin 

if  not  equal (x,  fetch ( local_s2 ,  i) )  then 
generator_loop__return_value  : -  false; 
raise  return_f rom_generator__loop; 
end  if; 
i  :=  i  +  1; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute_generator_loop (si) ; 
exception 

when  exit_from_generator_loop  => 
null  ; 
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when  return_f rom_generator__loop  => 
return  generator_loop_return_value ; 
end;  --  of  generator  loop 
return  true; 
end  generic_equal; 

function  less_than ( si ,  s2  :  sequence)  return  boolean  is 


i 

natural 

:=  1; 

y 

local  s2 

t; 

sequence 

:=  s2 ; 

begin  --  begin  generator  loop 
declare 

generator_loop_return_value  :  boolean; 
return_from_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (x  :  t)  is 
begin 

y  :=  fetch (local_s2,  i)  ; 
if  x  <  y  then 

generator_loop_return_value  :=  true; 
raise  return_from_generator_loop; 

elsif  y  <  x  then 

generator_loop_return__value  :  =  false ; 
raise  return_f rom_generator_loop; 
end  if; 
i  :=  i  +  1; 

end  generator_loop_body; 

procedure  execute__generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute__generator_loop  ( si )  ; 
exception 

when  exit_from_generator_loop  => 
null; 

when  return_f rom_generator_loop  => 
return  genera tor_loop_return_value; 
end;  --  of  generator  loop 

return  (length (si)  <  length(s2)); 
end  less_than; 

function  less_than_or_equal (si,  s2  :  sequence)  return  boolean  is 
function  It  is  new  less_than; 

function  seq_equal  is  new  generic_equal (equal) ; 
begin 

return  It  (si,  s2)  or  else  seq_equal (si ,  s2); 
end  less__than_or_equal; 

function  greater_than (si ,  s2  :  sequence)  return  boolean  is 
function  It  is  new  less_than; 

begin 

return  It  (s2,  si )  ; 
end  greater_than; 
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function  great er_or_equal (si,  s2  :  sequence)  return  boolean  is 
function  It  is  new  less_than; 

function  seq_equal  is  new  generic_equal (equal) ; 
begin 

return  lt(s2,  si)  or  else  seq_equal (si,  s2) ; 
end  greater_or_equal; 

function  subsequence ( si ,  s2  :  sequence)  return  boolean  is 
i  :  natural  0; 

local_sl  :  sequence  :=  si; 

begin 

if  si  =  empty  then 
return  (true) ; 
end  if; 

declare  —  begin  .generator  loop 

generator_loop_return_value  :  boolean; 
return_from_generator_loop  :  exception; 
exit__from_generator__loop  :  exception; 
procedure  generator_loop_body (x  :  t)  is 
begin 

if  equal (x,  fetch (local_sl,  i  +  1) )  then 
i  :=  i  +  1; 

if  i  *  length (local_sl)  then 

generator_loop_return_value  :=  (true) ; 
raise  return_f rom__generator_loop; 
end  if; 
end  if; 

end  gener ator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute_generator_loop (s2 ) ; 
exception 

when  exit_from_generator_loop  => 
null; 

when  return_from__generator_loop  => 
return  generator_loop_return_value; 
end;  —  of  generator  loop 
return  false; 
end  subsequence; 

function  interval (xl,  x2  :  t)  return  sequence  is 
ss  :  sequence; 
y  :  t  :=  xl; 

begin 

while  (y  <  x2 )  loop 
ss  : =  add (y,  ss) ; 
y  :=  successor (y) ; 
end  loop; 

if  y  =  x2  then 

ss  :=  add(yf  ss)  ; 
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end  if; 
return  ss; 
end  interval; 

function  apply (si  :  st)  return  sequence  is 
ss  :  sequence; 

begin 

for  i  in  1  ..  length(sl)  loop 
ss  :=  add (f (fetch (si,  i)  )  ,  ss); 
end  loop; 
return  ss; 
end  apply; 

function  reduce (s  :  sequence)  return  t  is 
x  :  t  :=  identity; 

begin  --  begin  generator  loop 
declare 

exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

x  :=  f (y,  x) ; 

end  generator_loop_body; 

procedure  execute__generator_loop  is  new 

scan (generator_loop_body) ; 

begin 

execute_generator__loop  (s)  ; 
exception 

when  exit_from_generator_loop  => 
null ; 

end;  —  of  generator  loop 

return  x; 
end  reduce; 

function  reducel(s  :  sequence)  return  t  is 
x  :  t  ; 

i  :  natural  : =  1; 
begin 

if  s  =  empty  then 

raise  empt y__reduction_unde fined; 
end  if; 

x  :=  fetch (s,  1)  ; 

declare  —  begin  generator  loop 

exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  i  >  1  then 
x  f (y,  x) ; 
end  if; 
i  :=  i  +  1; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new 

scan (generator_loop_body) ; 

begin 
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execute_generator_loop ( s ) ; 
exception 

when  exit_from_generator_loop  => 
null; 

end;  —  of  generator  loop 
return  x; 
end  reduce 1; 

procedure  scan(s  :  sequence)  is 
ss  :  sequence  :=  s; 

begin 

while  ss.p  /=  null  loop 
generate (ss .p. value) ; 
ss  :=  ss.p. rest; 
end  loop; 
end  scan; 

function  generic_input  return  sequence  is 
x  :  t; 

ss  :  sequence; 
begin 

if  token  /=  ascii . l_bracket  then 
raise  data_error; 
end  if; 
skip_char ; 

while  token  /=  ascii . rjoracket  loop 
x  :=  input; 
ss  :=  add (x,  ss)  ; 

if  token  =  f , 1  then 
skip_char; 

elsif  token  /=  ascii . r_bracket  then 
raise  data_error; 
end  if; 
end  loop; 
skip_char; 
return  ss; 
exception 

when  others  => 

raise  data_error; 
end  generic_input ; 

function  generic_f ile_input ( f ile  :  file_type)  return  sequence  is 
function  get_sequence  is  new  generic_input ; 
s  :  sequence; 

begin 

set_input (file) ; 
s  :=  get__sequence; 
set_input ( standard_input ) ; 
return  s ; 

end  generic_file_input; 

procedure  generic_put (item  :  in  sequence)  is 
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begin 

put (ascii . l_bracket ) ; 

if  length (item)  >=  1  then 
put ( fetch ( item,  1 ) ) ; 
end  if; 

for  i  in  2  ..  length (item)  loop 
putf",  "); 

put (fetch (item,  i) ) ; 
end  loop; 

put (ascii . r_bracket ) ; 
end  generic_put; 

procedure  generic_f ile_put ( f ile  :  in  file_type; 

item  :  in  sequence)  is 
procedure  put_sequence  is  new  generic_put; 

begin 

set_output (file) ; 
put_sequence (item) ; 
set_output (standard_output ) ; 
end  generic_file_put; 
end  sequence__p kg; 

75.  SETPKG.ADS 

with  text_io; 
use  text_io; 

generic 

type  t  is  private; 

with  function  t_equal(x,  y  :  t)  return  boolean  is 

package  set_pkg  is 
type  set  is  private; 
function  empty  return  set; 
procedure  empty(ss  :  out  set); 
function  add(x  :  t;  s  :  set)  return  set; 
procedure  add(x  :  in  t;  s  :  in  set;  ss  :  out  set); 
function  remove (x  :  t;  s  :  set)  return  set; 
procedure  remove (x  :  in  t;  s  :  in  set;  ss  :  out  set); 
function  is_in(x  :  t;  s  :  set)  return  boolean; 
procedure  is_in(x  :  in  t;  s  :  in  set;  bb  :  out  boolean); 
function  union (si,  s2  :  set)  return  set; 
procedure  union(sl,  s2  :  in  set;  ss  :  out  set); 
function  dif ference  ( si ,  s2  :  set)  return  set; 
procedure  dif ference ( si ,  s2  ;  in  set;  ss  :  out  set); 
function  intersection (si,  s2  :  set)  return  set; 
procedure  intersection (si ,  s2  :  in  set;  ss  :  out  set); 
function  choose (s  :  set)  return  t; 
procedure  choose  (s  :  in  set;  tt  :  out  t) ; 
function  size(s  :  set)  return  natural; 
procedure  size(s  :  in  set;  nn  :  out  natural); 
function  equal (si,  s2  :  set)  return  boolean; 
procedure  equal (si,  s2  :  in  set;  bb  :  out  boolean); 
function  subset (si,  s2  :  set)  return  boolean; 
procedure  subset (si,  s2  :  in  set;  bb  :  out  boolean); 
generic 

with  function  "<"  (x,  y  :  t)  return  boolean  is  <>; 
with  function  successor (x  :  t)  return  t; 
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function  interval (xl,  x2  :  in  t)  return  set; 
generic 

type  et  is  private; 
type  st  is  private; 

with  function  f(x  :  t)  return  et  is  <>; 
with  function  empty  return  st  is  <>; 
with  function  add(x  :  et;  s  :  st)  return  st  is  <>; 
function  apply (s  :  set)  return  st; 
generic 

with  function  f  (x,  y  :  t)  return  t; 
identity  :  t; 

function  reduce (s  :  set)  return  t; 
generic 

with  function  f  (x,  y  :  t)  return  t; 
function  reducel(s  ;  set)  return  t; 
generic 

with  procedure  generate (xl  :  in  t) ; 
procedure  scan(s  :  set)  ; 
empty_set  :  exception; 

empty_reduction__undefined  :  exception; 
generic 

with  function  input  return  t  is  <>; 
function  generic_input  return  set; 
generic 

with  function  input  return  t  is  <>; 
function  generic_file_input ( f ile  ;  in  file_type)  return  set; 
generic 

with  procedure  put (item  :  in  t)  is  <>; 
procedure  generic_put (item  :  in  set); 
generic 

with  procedure  put (item  :  in  t)  is  <>; 
procedure  generic_file_put (f ile  :  in  file_type;  item  :  in  set) 
private 

type  set_record; 

type  set_ptr  is  access  set_record; 
type  set  is  record 
p  :  set__ptr  :=  null; 
end  record; 
end  set_pkg; 


76.  SETPKG.ADB. 

with  lookahead_stream__pkg; 
use  lookahead__stream_pkg; 


package  body  set_pkg  is 
type  set_record  is  record 
value  :  t; 
rest  :  set; 
end  record; 

function  empty  return  set  is 
s  :  set; 

begin 

return  s ; 
end  empty; 

procedure  empty (ss  :  out  set)  is 
begin 
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ss  :  =  empty; 
end  empty; 

function  add(x  :  t;  s  :  set)  return  set  is 
ss  :  set; 

begin 

if  is_in(x,  s)  then 
return  s; 

else 

ss.p  :=  new  set_record' (value  =>  x,  rest  =>  s) ; 
return  ss; 
end  if; 
end  add; 

procedure  add(x  :  in  t;  s  :  in  set;  ss  :  out  set)  is 
begin 

ss  :=  add (x,  s) ; 
end  add; 

function  remove (x  ;  t;  s  :  set)  return  set  is 
ss  ;  set  :  =  empty; 

begin  —  begin  generator  loop 
declare 

exit_f rom__generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  not  (t__equal  (x,  y)  )  then 
ss  :=  add (y,  ss)  ; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (s) ; 
exception 

when  exit_from_generator_loop  => 
null; 

end;  —  of  generator  loop 

return  ss; 
end  remove; 

procedure  remove (x  :  in  t;  s  :  in  set;  ss  :  out  set)  is 
begin 

ss  :=  remove (x,  s)  ; 
end  remove ; 

function  is_in(x  :  t;  s  :  set)  return  boolean  is 
begin  —  begin  generator  loop 
declare 

generator_loop_return_value  :  boolean; 
return_f rom_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  t_equal(x,  y)  then 

generator_loop_return_value  :=  true; 
raise  return_f rom_generator_loop; 
end  if; 

end  generator_loop_body; 
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procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (s) ; 
exception 

when  exit_from_generator_loop  => 
null; 

when  return_from_generator_loop  => 
return  generator__loop_return_value ; 
end;  —  of  generator  loop 

return  false; 
end  is_in; 

procedure  is_in(x  :  in  t;  s  :  in  set;  bb  :  out  boolean)  is 
begin 

bb  :=  is_in(x,  s); 
end  is_in; 

function  union (si,  s2  :  set)  return  set  is 
ss  :  set  :=  empty; 

begin  —  begin  generator  loop 
declare 

exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

ss  :=  add(y,  ss) ; 
end  gene rat or_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_JLoop_body) 
begin 

execute_generator_loop (si ) ; 
exception 

when  exit_f  rom__generator_loop  -> 
null; 

end;  —  of  generator  loop 

declare  —  begin  generator  loop 

exit_f  romjgenerator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

ss  :=  add(y,  ss) ; 
end  generator_loop__body; 

procedure  execute_generator_loop  is  new  scan (gene rat or_loop_body) 
begin 

execute_generator__loop  (s2)  ; 
exception 

when  exit_f rom__generator_loop  => 
null; 

end;  —  of  generator  loop 
return  ss; 
end  union; 

procedure  union (si,  s2  :  in  set;  ss  :  out  set)  is 
begin 

ss  :=  union (si,  s2) ; 
end  union; 

function  difference (si,  s2  :  set)  return  set  is 
ss  :  set  :«=  empty; 

begin  —  begin  generator  loop 
declare 

exit_fromjgenerator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 
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if  not  is_in(y,  s2)  then 
ss  :=  add (y,  ss) ; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (si) ; 
exception 

when  exit_f rom_generator_loop  *=> 
null ; 

end;  —  of  generator  loop 

return  ss; 
end  difference; 

procedure  difference (si,  s2  :  in  set;  ss  :  out  set)  is 
begin 

ss  :=  difference (si,  s2) ; 
end  difference; 

function  intersection (si,  s2  :  set)  return  set  is 
ss  ;  set  :«  empty; 

begin  —  begin  generator  loop 
declare 

exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  is_in(y,  s2)  then 
ss  :=  add (y,  ss) ; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute__generator_loop  (si)  ; 
exception 

when  exit_from_generator_loop  => 
null; 

end;  #  --  of  generator  loop 

return  ss; 
end  intersection; 

procedure  intersection (si,  s2  :  in  set;  ss  :  out  set)  is 
begin 

ss  :=  intersection (si,  s2); 
end  intersection; 

function  choose (s  :  set)  return  t  is 
begin 

if  size(s)  >  0  then 
return  s. p. value; 

else 

raise  empty_set; 
end  if; 
end  choose; 

procedure  choose (s  :  in  set;  tt  :  out  t)  is 
begin 

tt  : =  choose  (s) ; 
end  choose; 
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function  size(s  :  set)  return  natural  is 
k  :  natural  0; 

begin  --  begin  generator  loop 
declare 

exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  ;  t)  is 
begin 

k  :  =  k  +  1; 

end  generator_loop__body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (s ) ; 
exception 

when  exit_from_generator_loop  -> 
null; 

end;  —  of  generator  loop 

return  k; 
end  size; 

procedure  size  (s  :  in  set;  nn  :  out  natural)  is 
begin 

nn  :=  size  (s) ; 
end  size; 

function  equal (si,  s 2  :  set)  return  boolean  is 
begin 

return  subset (si,  s2)  and  then  subset (s2,  si); 
end  equal; 

procedure  equal (si,  s2  :  in  set;  bb  :  out  boolean)  is 
begin 

bb  :=  equal (si,  s2)  ; 
end  equal; 

function  subset  (si,  s2  :  set)  return  boolean  is 
begin  —  begin  generator  loop 
declare 

generator_loop_return_value  :  boolean; 
return_f rom_generator_loop  :  exception; 
exit_f rom_generator_loop  :  exception; 
procedure  gene rat or_loop_body (y  :  t)  is 
begin 

if  not  (is_in(y,  s2) )  then 

generator_loop_return_value  : =  false; 
raise  return_f rom_generator_loop; 
end  if; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (si)  ; 
exception 

when  exit_f rom_generator_loop  => 
null; 

when  return__f rom_generator__loop  => 
return  generator_loop_return_value ; 
end;  —  of  generator  loop 

return  true; 
end  subset; 

procedure  subset (si,  s2  :  in  set;  bb  :  out  boolean)  is 
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begin 

bb  :=  subset (si,  s2) ; 
end  subset; 

function  interval (xl,  x2  :  in  t)  return  set  is 
ss  :  set  :=  empty; 
y  :  t  :=  xl; 

begin 

while  not  (x2  <  y)  loop 
ss  : =  add (y,  ss) ; 
y  :=  successor (y) ; 
end  loop; 
return  ss; 
end  interval; 

function  apply (s  :  set)  return  st  is 
ss  :  st  :=  empty; 

begin  —  begin  generator  loop 
declare 

exit_f rom_generator_loop  ;  exception; 
procedure  generator_loop__body  (y  :  t)  is 
begin 

ss  :=  add (f (y)  ,  ss)  ; 
end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body ) 
begin 

execute__generator_loop  (s)  ; 
exception 

when  exit_from_generator_loop  => 
null ; 

end;  —  of  generator  loop 

return  ss; 
end  apply; 

function  reduce (s  :  set)  return  t  is 
x  :  t  :=  identity; 

begin  —  begin  generator  loop 
declare 

exit__f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

x  :=  f (y,  x) ; 
end  generator_loop__body ; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (s) ; 
exception 

when  exit__from__generator_loop  => 
null ; 

end;  —  of  generator  loop 

return  x; 
end  reduce; 

function  reducel(s  :  set)  return  t  is 
x  :  t; 

i  :  natural  :=  1; 
begin 

if  size  (s )  =0  then 

raise  empty__reduction_undef ined; 
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end  if; 

declare  —  begin  generator  loop 

exit_f rom_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  i  =  1  then 
x  :=  y; 

else 

x  :«  f  (y,  x)  ; 
end  if; 
i  :=  i  +  1; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body) 
begin 

execute_generator_loop (s) ; 
exception 

when  exit_ f rom_generator_loop 
null; 

end;  —  of  generator  loop 
return  x; 
end  r educe 1; 

procedure  scan(s  :  set)  is 
ss  :  set  :=  s; 

begin 

while  ss.p  /=  null  loop 
generate (ss .p .value) ; 
ss  :=  ss.p. rest; 
end  loop; 
end  scan; 

function  generic__input  return  set  is 
x  :  t; 

ss  :  set  :=  empty; 
begin 

if  token  /=  1 { '  then 
raise  data_error; 
end  if; 
skip_char; 

while  token  /=  * } 1  loop 
x  :=  input; 
ss  :=  add (x,  ss) ; 

if  token  -  1 , 1  then 
skip_char; 

elsif  token  /=  1 } '  then 
raise  data_error; 
end  if; 
end  loop; 
skip_char; 
return  ss; 
exception 

when  others  => 

raise  data__error; 
end  generic_input; 

function  generic_f ile_input ( f ile  :  in  file_type)  return  set  is 
function  get_set  is  new  generic_input ; 
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s  :  set ; 


begin 

set_input  (file) ; 
s  : -  get_set; 

set_input (standard_input ) ; 
return  s; 

end  generic_f ile_input ; 

procedure  generic_put (item  :  in  set)  is 
i  :  natural  :=  1; 

begin 

put (ascii . l_brace) ; 

declare  —  begin  generator  loop 

return__f rom_generator_loop  :  exception; 
exit_from_generator_loop  :  exception; 
procedure  generator_loop_body (y  :  t)  is 
begin 

if  i  >  1  then 
put ( M /  "); 
end  if; 
put (y) ; 
i  :«  i  +  1; 

end  generator_loop_body; 

procedure  execute_generator_loop  is  new  scan (generator_loop_body ) ; 
begin 

execute_generator_loop (item) ; 
exception 

when  exit_f rom_generator_loop  => 
null; 

end;  —  of  generator  loop 

put (ascii . r_brace) ; 
end  generic_put; 

procedure  generic_file_put (file  :  in  file_type;  item  :  in  set)  is 
procedure  put_set  is  new  generic_put; 

begin 

set_output (file) ; 
put_set  (item)  ; 

set_output (standard_output) ; 
end  generic_f ile_put ; 
end  set_pkg; 

77.  SIMULATION_OBJECT_PKG.ADS 


File  Name:  Simulation_Obj ect_Pkg . Ads 

Discription:  This  package  describes  the  basis  for  the  Simulation  Hierarchy 


WITH  game_time_type_pkg;  USE  game_time_type_pkg; 

WITH  Location_Type_Pkg;  USE  Location_Type_Pkg; 

PACKAGE  Simulation_Object_Pkg  IS 

TYPE  Simulation_Object  IS  ABSTRACT  TAGGED  PRIVATE;—  Basis  of  Simulation 
Hierarchy 

TYPE  Simulation_Object_Ptr  IS  ACCESS  ALL  Simulation_Obj ect 1  Class; 
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~  PROCEDURE: 

—  PRE: 

—  POST: 


Move_Update__Obj 

Obj  is  of  type  Simulation_Obj ect  and  exists 
Time  contains  data  (value  is  not  never) 

Updates  Obj ect 1 s  location.  Time  represents  when  to 
reschedule . 


PROCEDURE  Move_Update_Obj (Obj  :  IN  OUT  Simulation_Obj ect ; 

Time  :  IN  OUT  game_time_type) ; 


—  FUNCTION:  Can  move 


FUNCTION  Can_move(Obj  :  Simulation_Object )  RETURN  boolean; 


—  FUNCTION: 

—  PRE : 
Return: 


Copy_Obj 

Obj  is  of  type  Simulation_Object  and  exists 

Makes  a  copy  of  the  obj  and  returns  a  pointer  to  the  new 

obj 


FUNCTION  Copy_Obj (Obj  :  Simula tion_Obj ect )  RETURN  Simulation_Obj ect_Ptr ; 


—  FUNCTION:  Get_Is_Scheduled 

PRE:  Obj  is  of  type  Simulation__Obj ect  and  exists 

Return:  Returns  the  value  of  Is_Scheduled  which  is  a  boolean  type 


FUNCTION  Get_Is_Scheduled (Obj  :  Simulation_Obj ect 1  Class )  RETURN  Boolean; 


—  PROCEDURE:  Set  JEs_Scheduled 

PRE:  Obj  is  of  type  Simula tion_Obj ect  and  exists 

POST:  Assigns  Value  to  Is_Scheduled 


PROCEDURE  Set_Is_Scheduled (Obj  :  IN  OUT  Simulation_Obj ect 1  Class ; 

Value  :  Boolean) ; 


—  FUNCTION:  Get_Destination 

PRE:  Obj  is  of  type  Simulation_Obj ect  and  exists 

Return:  Returns  the  destination 


FUNCTION  Get_Destination (Obj  :  Simulation_Obj ect 1  Class) 

RETURN  Location_Type; 


PROCEDURE:  Set_Destination 

PRE:  Obj  is  of  type  Simulation_Obj ect  and  exists 

POST:  Assigns  Value  to  the  Destination 


PROCEDURE  Set_Destination (Obj  :  in  out  Simulation_Obj ect 1  Class; 

Value:  in  Location_Type) ; 


—  FUNCTION:  Get_Location 

PRE:  Obj  is  of  type  Simulation_Object  and  exists 

Return:  Returns  the  location 
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FUNCTION  Get_Location (Obj  :  Simulation_Ob j ect ? Class )  RETURN  Location_Type; 


—  FUNCTION:  Get_Fuel_Used 

PRE:  Obj  is  of  type  Simulation_Object  and  exists 

Return:  Returns  the  float 


FUNCTION  Get__Fuel_Used  (Obj  :  Simulation_Obj ect )  RETURN  Float; 


PRIVATE 


TYPE  Simulation_Ob j ect  IS  TAGGED  RECORD 


Is_Scheduled 

Name 

Graphic_Symbol 

Force 

M°ve_Period 

Active 

Location 

Destination 

Speed 
Max_Speed 
END  RECORD; 


Boolean :=False; 

String ( 1 . . 20 } ; 

Natural; 

Natural;  — IE  1 . . 6 
Integer; 

Boolean;  — True  =  active  part  of  sim,  ie  alive 
Location_Type; 

Location_Type;  — Could  be  a  sequence  of 
— LocationJTypes 
Float;  — In  M /sec 
Float;  — In  M /sec 


END  Simulation_Object_Pkg; 


78.  SIMULATION_OBJECT_PKG.ADB 


File  Name:  Simulation_Obj ect_Pkg . Adb 


PACKAGE  BODY  Simula  tionJDbj ect_Pkg  IS 


—  PROCEDURE:  Move_Update  JDb j 


PROCEDURE  Move_UpdatejDbj (Obj  :  IN  OUT  Simulation_Obj ect ; 

Time  :  IN  OUT  game_time_type)  IS 
Time_Elapsed  :  Float;  —  In  seconds 
Distance  :  Float;  —  In  meters 

Displacement  :  Location_Type; 

Velocity  :  Location_Type; 

BEGIN 

—  Stop  motion  if  the  object  cannot  move. 

IF  not  Can_move (Simulation_Obj ect ' Class (Obj ) )  THEN 
Obj . Speed  :=  0.0; 

Obj . Is_Scheduled  :=  false; 

Time  :=  never;  —  Do  not  reschedule  a  move  event  for  this  object 
return; 

END  IF; 

—  How  far  are  we 

Time_Elapsed  :=  Float (Obj . Move_Period) ; 

Displacement  :=  Obj . Destination  -  Obj . Location; 

Distance  :=  Length (Displacement ) ; 

—  Set  the  speed 

--  Future  versions  will  take  terrain  and  weather  into  account  here. 
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IF  Distance  >  Obj .Max_Speed  *  Time_Elapsed 
THEN  Ob j . Speed  :=  Obj . Max_Speed; 

ELSE  Obj . Speed  :=  Distance/Time_Elapsed; 

END  IF; 

—  Move  and  schedule  the  next  move. 

Velocity  :=  (Obj . Speed/Distance)  *  Displacement; 

Obj. Location  :=  Obj. Location  +  (Time_Elapsed  *  Velocity); 
Time  Time  +  Obj .Move_Period;  — Schedules  next  event  in 

— Move_Period  seconds 

—  Note:  the  above  code  works  without  modification 
—  for  both  two  and  three  dimensions. 

END  Move_Update_Ob  j  ; 


—  FUNCTION:  Can  move 


FUNCTION  Can_move (Obj  :  SimulationJObject)  RETURN  boolean  IS 
Min_Distance  :  Constant  Float  :=  10.0; 

Distance  :  Float; 

BEGIN 

Distance  :=  length (Obj . Destination  -  Obj . Location) ; 

RETURN  Obj. Active  —  must  be  alive  to  move 
and  then  Distance  >  Min_Distance; 

—  must  not  already  be  at  the  planned  destination 

END; 


—  FUNCTION:  CopyjObj 

FUNCTION  Copy_Ob j  (Obj  :  Simulation_Object )  RETURN  Simulation_Object__Ptr  IS 
BEGIN 

RETURN  NULL;  — All  are  dispatched  to  leaves  of  hierarchy 
END  Copy_Ob j ; 


—  FUNCTION:  Get  Is  Scheduled 


FUNCTION  Get_Is_Scheduled (Obj  :  Simulation_Obj ect T Class )  RETURN  Boolean  IS 
BEGIN 

RETURN  Obj . Is_Scheduled; 

END  Get  Is  Scheduled; 


—  PROCEDURE:  Set  Is  Scheduled 


PROCEDURE  Set_Is_Scheduled (Ob j  :  IN  OUT  SimulationJDbject ' Class; 

Value  :  Boolean)  IS 

BEGIN 

Obj . ISjScheduled  Value; 

END  Set  Is  Scheduled; 


FUNCTION:  Get  Destination 


FUNCTION  GetjDestination (Obj  :  SimulationjDbj ect ' Class ) 

RETURN  Location_Type  IS 


BEGIN 

RETURN  Obj .Destination; 
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END  Get  Destination; 


PROCEDURE:  Set  Destination 


PROCEDURE  Set_Destination (Ob j  :  in  out  Simulation_Object 1  Class; 

Value:  in  LocationJType)  IS 

BEGIN 

Obj . Destination  :=  Value; 

END  Set  Destination; 


FUNCTION:  Get  Location 


FUNCTION  Get_Location (Obj  :  Simulation_Ob ject 1  Class )  RETURN  Location_Type  IS 
BEGIN 

RETURN  Ob j . Location; 

END  Get  Location; 


--  FUNCTION:  Get_Fuel_Used 

FUNCTION  Get__Fuel_Used (Obj  :  Simulation_Object)  RETURN  Float  IS 
BEGIN 

RETURN  0.0; 

END  Get_Fuel_Used; 

END  Simulation_Object__Pkg; 

79.  SIMULATION_OBJECT_PKG-GROUND_OBJECT_PKG.ADS 

—  File  Name :  Simulation_Object_Pkg. Ground_Object_Pkg. Ads 

PACKAGE  Simulation_Object_Pkg.Ground_Object_Pkg  IS 

TYPE  Ground_Ob j ect  IS  ABSTRACT  NEW  Simulation_Object  WITH  PRIVATE; 
PRIVATE 

TYPE  Ground_Object  IS  ABSTRACT  NEW  SimulationjDbject  WITH  NULL  RECORD; 
END  Simulation_Ob j ect_Pkg . Ground_Obj ect_Pkg; 

80.  SIMULATION_OBJECT_PKG-GROUND_OBJECT_PKG- 
TANKPKG.ADS 

—  File  Name :  SimulationjDbj ect_Pkg . Ground_Obj ect_Pkg . Tank_Pkg . Ads 

PACKAGE  Simulation_Object_Pkg.Ground_Object_Pkg.Tank_Pkg  IS 
TYPE  Tank_Type  IS  NEW  GroundjDbject  WITH  PRIVATE; 


PROCEDURE:  Move_Update_Ob j 
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Description:  Overloaded  Simulaiton_Object ' s  Method  to  work  on  Tank 

Objects 


PROCEDURE  Move__Update_Obj  (Obj  :  IN  OUT  Tank_Type; 

Time  :  IN  OUT  game_time_type) ; 


--  FUNCTION:  Can  move 


FUNCTION  Canjmove (Obj  :  Tank_Type)  RETURN  boolean; 


—  FUNCTION:  Get  JFuelJJsed 

Description:  Overloads  the  SImulation_Obj ect 1 s  Method 


FUNCTION  Get_Fuel_Used(Obj  :  Tank_Type)  RETURN  Float; 


—  FUNCTION:  Copy_Obj 

Description:  Overloads  the  SImulation_Object ' s  Method 


FUNCTION  Copy_Obj (Obj  :  Tank_Type)  RETURN  Simulation_Obj ect_Ptr ; 


—  FUNCTION:  Construct_Ob j 

—  Description:  Constructs  a  simulation  obj 


FUNCTION  Const ruct_Obj (Scheduled 

Name 

Symbol 

Force 

Move_Period 

Active 

Location__x 

Location_y 

Destination_x 

Destination^ 

Speed 

Max_Speed 

Fuel 

Consumption 


Boolean; 

Stringy- 

Natural; 

Natural; 

Integer; 

Boolean; 

Floaty- 

Float; 

Float; 

Floaty- 

Float; 

Floaty- 

Float; 

Float)  RETURN  Simula  tion__Ob j ect_Ptr ; 


PRIVATE 


TYPE  Tank_Type  IS  NEW 
Fuel 

Fue l_Consumpt ion 
Fuel  Used 


Ground_Obj  ect  WITH  RECORD 
Float;  — In  Gallons 
Float;  — Gallons/Second 
Float :=  0.0; 


END  RECORD; 


END  Simulation_Object_Pkg. Ground_Object_Pkg. Tank_Pkg; 

81.  SIMULATION_OBJECTJPKG-GROUND_OBJECT_PKG- 
T  ANKPKG.  ADB 


File  Name:  Simulation_Object_Pkg.Ground_Object_Pkg.Tank_Pkg.Adb 
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PACKAGE  BODY  Simulation_Ob j ect_Pkg . Ground  Jib j ect_Pkg . Tank_Pkg  IS 


—  PROCEDURE:  Move  JJpdate  J)bj 


PROCEDURE  MoveJJpdatejDbj (Obj  :  IN  OUT  TankJType; 

Time  :  IN  OUT  game_time_type)  IS 
Time_Elapsed  :  Float;  -“In  Seconds 
BEGIN 

—  Stop  motion  if  the  object  cannot  move. 

IF  not  Canjnove (Obj )  THEN 
Obj . Speed  :=  0.0; 

Obj . Is_Scheduled  :=  false; 

Time  :=  never;  —  Do  not  reschedule  a  move  event  for  this  object 
return; 

END  IF; 


—  Move  the  tank  using  the  general  purpose  move  method 

—  from  the  most  general  superclass. 

MoveJJpdatejDbj (Simulation_Object (Obj ) ,  Time) ; 


—  Now  do  the  fuel  consumption  bookkeeping. 

Time__Elapsed  :=  Float  (Obj  .Move_Period)  ; 

Obj. Fuel  :=  Obj. Fuel  -  (Obj . Fue  ^Consumption  *  TimeJS  lapsed) ; 
Obj . Fuel_Used  :=  Obj . Fuel_Used  +  (Obj . Fuel_Consumption 

*  TimeJE lapsed) ; 


END; 


—  FUNCTION:  Can  move 


FUNCTION  Canjnove (Obj  :  Tank_Type)  RETURN  boolean  IS 
BEGIN 

RETURN  Can_move (Simulation_Obj ect (Obj ) )  —  must  satisfy  inherited 

—  general  constraints 

and  then  Obj. Fuel  >0.0;  —  must  also  have  fuel  to  move 

END; 


—  FUNCTION:  Get_Fuel_Used 

Description:  Overloads  the  Simula tion_Obj ect 1 s  Method 


FUNCTION  Get_Fuel  JJsed  (Obj  :  TankJType)  RETURN  Float  IS 
BEGIN 

RETURN  Obj . Fuel_Used; 

END; 


—  FUNCTION:  Copy_Obj 


FUNCTION  Copy_Obj (Obj  :  TankJType)  RETURN  Simulation_Ob j ect_Ptr  IS 
Obj_Ptr  :  SimulationjObject_Ptr; 

BEGIN 


!Is_Scheduled 

=> 

Obj . Is_scheduledf 

Name 

=> 

Obj . Name, 

Graphic  Symbol 

=> 

Obj  .  Graphic__Symbol, 

Force 

=> 

Obj . Force, 

Move  Period 

=> 

Obj . Move_Period, 

Active 

Obj .Active, 
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RETURN  Obj_Ptr; 
END; 


Location  => 
Destination  => 
Speed  => 
Max_Speed  => 
Fuel  => 
Fuel_C on sumption  => 
Fuel  Used  => 


Obj . Location, 

Obj .Destination, 

Obj .Speed, 

Obj .Max_Speed, 

Obj . Fuel, 

Obj . Fuel_Con sumption 
Obj . Fuel_Used) ; 


—  FUNCTION:  Construct_Ob j 

Description:  Constructs  a  simulation  obj 


FUNCTION  Cons t rue t_Obj (Scheduled 

Name 


Symbol 

Force 

Move_Period 

Active 

Location_X 

Location_Y 

Destination 

Destination 

Speed 

Max_Speed 

Fuel 

Consumption 


Obj_Ptr  : 

Location  : 

Destination  : 
BEGIN 

Location. X 
Location. Y 
Destination. X 
Destination. Y 
Obj_Ptr:=  NEW 


Boolean; 

String; 

Natural; 

Natural; 

Integer; 

Boolean; 

Float; 

Float; 

Float; 

Float; 

Float; 

Float; 

Float; 

Float) 

RETURN  Simulation_Object_Ptr  IS 
Simulatio  n_Ob  j  e  c t_P t  r ; 

LocationJType; 

Location_Type ; 


=  Location_X; 

=  Location^Y; 

=  Destination^ ; 

—  Destination__Y; 

Tank_Type ' (Is_Scheduled 
Name 

Graph! c_Symbol 
Force 

Move_Period 

Active 

Location 

Destination 

Speed 

Max_Speed 

Fuel 

Fue l_Consumpt ion 
Fuel  Used 


Scheduled, 

Name, 

Symbol, 

Force, 

Move  Period, 


=> 

=> 

=> 

=> 

=>,  Active, 


=> 

=> 

=> 

=> 

=> 

=> 


Location, 

Destination, 

Speed, 

Max_Speed, 

Fuel, 

Consumption, 

0.0)  ; 


RETURN 

END; 


Obj_Ptr; 


END  Simulation_Ob j  ect_Pkg .  Ground_Ob j  ect_PJcg .  Tank_Pkg ; 


82.  SORTEDLISTPKG.ADS 

generic 

type  element_type  is  private; 

with  function  "<" (x,  y:  element_type)  return  boolean; 
package  sorted_list _pkg  is 
type  sorted_list  is  private; 
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function  empty  return  sorted_list; 

—  Returns  an  empty  sorted  list. 

function  is_empty(s:  sorted_list)  return  boolean; 

—  True  if  and  only  if  s  has  no  elements. 

procedure  add(s:  in  out  sorted_list;  x;  in  element_type) ; 

—  s  : =  s  U  {x} . 

procedure  get_smallest (s ;  in  out  sorted_list;  x:  out  element_type) 

—  sets  x  to  the  smallest  element  of  s  and  removes  x  from  s. 

—  raises  no_elements  if  s  is  empty. 

no_elements:  exception; 
private 

type  sorted_list_record  is 
record 

data:  element_type; 
next:  sorted_list; 
end  record; 

—  The  list  is  kept  sorted  in  increasing  order  wrt  "<". 
type  sorted_list  is  access  sorted_list_record; 
end  sorted_list_pkg; 


83,  SORTEDLISTPKG.ADB 

—  generic 

type  element_type  is  private; 

with  function  "<"  (x,  y:  element_type)  return  boolean; 
package  body  sorted_list_pkg  is 
free_list:  sorted_list  :=  null; 

procedure  free (node:  sorted_list)  is 
begin 

node,  next  :=  free__list; 
free_list  :=  node; 
end  free; 

function  new_node(x:  element_type;  s:  sorted_list) 
return  sorted^list  is 
node:  sorted_list; 
begin 

if  free_list  -  null  then 

return  new  sorted_list_record 1 (data  =>  x,  next  =>  s) ; 
else  node  :=  free_list; 

free_list  : =  f ree_list . next ; 
node. data  :=  x; 
node. next  :=  s; 
return  node; 
end  if; 
end  new_node; 

function  empty  return  sorted__list  is 
begin 

return  null; 
end  empty; 

function  is_empty(s:  sorted_list)  return  boolean  is 
begin 

return  (s  =  null) ; 
end  is^empty; 
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procedure  add{s:  in  out  sorted_list;  x:  in  element_type)  is 
begin 

if  is__empty  (s)  then  s  :=  new_node(x,  s)  ; 
elsif  x  <  s.data  then  s  :=  new_node (x,  s)  ; 
else  add(s.next,  x) ; 
end  if; 
end  add; 

procedure  get_smallest (s :  in  out  sorted_list;  x:  out  element_type)  is 
head:  sorted_list  :=  s; 
begin 

if  is_empty(s)  then  raise  no_elements; 
else  x  :  =  s.data; 
s  :=  s.next; 
free (head) ; 
end  if; 

end  get_smalles tr¬ 
end  sorted_list_pkg; 


84.  STATISTICS_REQUESTJTYPE_PKG.ADS 

package  statistics_request_type_pkg  is 
type  statistics_request_type  is  private; 

function  on  return  statistics_request_type; 

function  off  return  statistics_request_type; 

private 

type  statistics_request_type  is  new  boolean; 
end  statistics_request_type_pkg; 

85.  STATISTICS_REQUEST_TYPE_PKG.ADB 

package  body  statistics_request_type_pkg  is 

function  on  return  statistics_request_type  is 
begin 

return  true; 
end  on; 

function  off  return  statistics_request_type  is 
begin 

return  false; 
end  off; 

end  statistics_request_jtype_pkg; 

86.  STATISTICS JTYPEJPKG.ADS 

package  statistics_type_pkg  is 
type  statistics_type  is  private; 

function  convert (x:  statistics_type)  return  float; 
function  convert (x:  float)  return  statistics__type; 
private 

type  statistics_type  is  new  float; 
end  statistics_typejpkg; 

87.  STATISTICSTYPEPKG.ADB 
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package  body  statistics_type_pkg  is 

function  convert (x:  statistics_type)  return  float  is 
begin 

return  float (x); 
end  convert; 

function  convert (x:  float)  return  statistics_type  is 
begin 

return  statistics_type (x) ; 
end  convert; 

end  statistics_type_pkg; 


88.  USER_INTERACTION_TYPE_PKG.ADS 

package  user_interaction_type_pkg  is 
type  user_interaction_type  is  private; 

function  stop__simulation  return  user_interaction_type; 

private 

type  user_interaction_type  is  new  boolean; 
end  user_interaction_type_pkg; 

89.  USERINTERACTIONTYPEPKG.ADB 

package  body  user__interaction_type_pkg  is 

function  stop_simulation  return  user_interaction__type  is 
begin 

return  true; 
end  stop_simulation; 
end  user_interaction_type_pkg; 

90.  WARRIOR_GLOBAL.H 

/*  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.]  *** 
*/ 

/*  ***  File:  global. h  ***  */ 

/*  ***  Generated:  Oct  15  11:20:08  1998  ***  */ 

/*  *********★***★******************++***++*****+******+****★*****★********* 

*  PURPOSE: 

*  This  global  header  file  is  automatically  M#includel?d  in  each  panel 

*  file.  You  can  insert  references  to  global  variables  here. 

* 

*  REGENERATED: 

*  This  file  is  generated  only  once.  Therefore,  you  may  modify  it  without 

*  impacting  automatic  code  merge. 

* 

*  CHANGE  LOG: 

*  15-Oct-98  Initially  generated. .. TAE 
*/ 


#ifndef  I_GLOBAL  /*  prevent  double  include  */ 

#def ine  I_GLOBAL  0 

/*  macros  for  access  to  parameter  values 

★ 

*  These  macros  obtain  parameter  values  given  the  name  of 

*  a  Vm  object  and  the  name  string  of  the  parameter. 

*  The  Vm  objects  are  created  by  the  Initialize__All_Panels 

*  function  for  a  resource  file. 
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*  Reference  scalar  parameters  as  follows: 

* 

*  StringParm(myPanelTarget,  "s")  —  string  pointer 

*  IntParm (myPanelTarget,  "i")  —  integer  value 

*  RealParm(myPanelTarget,  "r")  —  real  value 

* 

*  For  vector  parameters,  do  the  following: 

* 

*  TAEINT  *ival; 

*  ival  -  SlntParm (myPanelTarget,  "i") ; 

*  printf  ("%d  %d  %d",  ival[0],  ival[l],  ival [2]); 

* 

*/ 


#define  StringParm (vmld,  name) 
tdefine  IntParm (vmld,  name) 
#define  RealParm (vmld,  name) 


/*  Dispatch  Table  typedef 

typedef  VOID  (*FUNCTION_PTR)  (); 
typedef  struct  DISPATCH 
{ 

TEXT  *parmName; 

FUN  CT I ON_PTR  eventFunction; 

}  Dispatch; 

#def ine  EVENT_HANDLER  static  VOID  /*  a  flag  for  documentation  */ 

/*  Display  Id  for  use  by  direct  Xlib  calls:  */ 

extern  Display  *Default_Display; 


( SVAL  ( *Vm_Find  (vmld,  name),0)) 

( IVAL (*Vm_Find (vmld,  name),  0) ) 
(RVAL(*Vm  Find (vmld,  name),  0)  ) 


/*  Externally  define  wptEvent  so  event  handlers  have  access  to  it  */ 

extern  WptEvent  wptEvent;  /*  event  structure  returned  by  Wpt_NextEvent  */ 


tdefine  SET_APPLICATIOrf_DONE  \ 

{  \ 

extern  BOOL  Application_Done;  \ 
Application_Done  =  TRUE;  \ 

} 


tendif 

/* 

Automatic  TAE-style  indenting  for 

Emacs  users 

:  */ 

/* 

★  ** 

Local  Variables: 

*  *  + 

*/ 

/* 

* 

mode : 

c 

★  *  + 

*/ 

/* 

★  *  * 

c-indent-level : 

0 

*  *  * 

*/ 

/* 

*  *  * 

c-continued-statement-of f set : 

4 

★ 

k  / 

/* 

•k  k  * 

c-brace-of f set : 

4 

★  ★ 

*/ 

/* 

★  *  * 

c-brace-imaginary-of f set : 

4 

*  *  * 

*/ 

/* 

*  *  * 

c-argdecl-indent : 

4 

-k  k  k 

*/ 

/* 

*  *  * 

c-label-of f set : 

-4 

kkk 

*/ 

/* 

*  *  * 

c-continued-brace-of f set : 

-4 

k  k  k 

*/ 

/* 

★  *  ★ 

comment -column : 

45 

kkk 

*/ 

/* 

*  *  * 

comment-multi-line : 

nil 

kkk 

*/ 

/* 

*** 

End: 

kkk 

*/ 
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91.  WARRIOR_PAN_GUI_3.H 

/*  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.]  *** 
*/ 

/*  *  +  *  piie:  pan__gui_3.h  ***  */ 

/*  ***  Generated:  Oct  15  11:20:08  1998  ***  */ 

/*  ******************★********+******************************************** 

*  PURPOSE: 

*  Header  file  for  panel:  gui_3 

* 

*  REGENERATED: 

*  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

*  The  panel's  name  is  changed  (not  title) 

*  For  panel:  gui_3 

* 

*  CHANGE  LOG: 

*  15-Oct-98  Initially  generated. .. TAE 

*  *****★**********★**********★*********************************,************* 

*/ 


#ifndef  I_PAN_gui_3  /*  prevent  double  include  */ 

#define  I_PAN_gui__3  0 

/*  Vm  objects  and  panel  Id.  */ 

extern  Id  gui_3Target,  gui_3View,  gui_3Id; 

I*  Dispatch  table  (global  for  calls  to  Wpt_NewPanel )  */ 
extern  struct  DISPATCH  gui__3Dispatch  [  ]  ; 

/*  Initialize  gui_3Target  and  gui_3View  */ 
extern  VOID  gui_3_Initialize_Panel  (); 

/*  Create  this  panel  and  display  it  on  the  screen  */ 
extern  VOID  gui_3_Create_Panel  (); 

/*  Destroy  this  panel  and  erase  it  from  the  screen  */ 
extern  VOID  gui_3_Destroy_Panel  {); 

/*  Connect  to  this  panel.  Create  it  or  change  its  state  */ 
extern  VOID  gui_3_Connect_Panel  (); 

/* 

extern  VOID  warrior_Initialize_All_Panels  (); 
extern  VOID  warrior__Create_Initial_Panels  (); 

*/ 

/*#  MTS  10-15-98 

added  the  following  procedure  declarations 

#*/ 

extern  VOID  set_user_interaction ( ) ; 
extern  VOID  set_statistics_request ( ) ; 
extern  VOID  set_replay_request ( ) ; 
extern  VOID  set_new_plan ( ) ; 

/*#  MTS  10-23-98 

added  the  following  function  declarations 

#*/ 

extern  VOID  set_x ( ) ; 
extern  VOID  set_y(); 
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FUNCTION  VOID  display_f uel_consuinption  ( )  ; 
FUNCTION  VOID  display_xloc ( ) ; 

FUNCTION  VOID  display_yloc ( ) ; 

FUNCTION  VOID  display_mover ( ) ; 

FUNCTION  VOID  end  simulation (} ; 


tendif 

/*  Automatic  TAE-style  indenting  for  Emacs  users 


/* 

*  *  * 

Local  Variables: 

*  *  * 

*/ 

/* 

*  *  * 

mode: 

c 

*  *  * 

*/ 

/* 

*  *  * 

c-indent-level : 

0 

*  *  * 

*/ 

/* 

*  *  * 

c-continued-statement-of f set : 

4 

*  *  * 

*/ 

/* 

*  ** 

c-brace-of f set : 

4 

*  *  * 

*/ 

/* 

*  *  * 

c-brace-imaginary-of f set : 

4 

*  *  * 

*/ 

/* 

*  *  * 

c-argdecl-indent : 

4 

*** 

*/ 

/* 

*  *  * 

c-label-of f set : 

-4 

*  *  * 

*/ 

/* 

*  *  * 

c-continued-brace-of f set : 

-4 

*  *  * 

*/ 

/* 

*  *  * 

comment -“Column : 

45 

*  *  * 

*/ 

/* 

*  ** 

comment-multi- line : 

nil 

*  *  * 

*/ 

/* 

*  *  * 

End: 

*  *  * 

*/ 

92.  WARRIOR_CREAT_INIT.C 

/*  ***  ^AE  plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.]  ** 
*/ 

/*  ***  pile:  warrior_creat_init . c  ***  */ 

/*  ***  Generated:  Oct  15  11:20:08  1998  ***  */ 

/*  ************************************************************************ 

*  PURPOSE: 

*  Displays  all  panels  in  the  initial  panel  set  of  this  resource  file 

* 

*  REGENERATED: 

*  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

*  A  panel  is  added  to  the  initial  panel  set 

*  A  panel  is  deleted  from  the  initial  panel  set 

*  An  initial  panel’s  name  is  changed  (not  title) 

*  For  the  set  of  initial  panels: 

*  gui_3 

* 

*  CHANGE  LOG: 

*  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

*  15-Oct-98  Initially  generated. . .TAE 

*  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 

*  ************************************************************************ 

*/ 

iinclude 
iinclude 
#include 


"taeconf . inp" 
"wptinc . inp" 
"warrior_global . h" 


/*  Application  globals  */ 


/*  One  include  for  each  panel  in  initial  panel  set  */ 

#include  Mwarrior_pan_gui_3 . h" 

/*  MERGE  NOTE:  Add  additional  includes  and  functions  BELOW  this  line.  */ 
/*  MERGE  NOTE:  Add  additional  includes  and  functions  ABOVE  this  line.  */ 


FUNCTION  VOID  warrior_Create_Initial_Panels  () 

{ 

/*  MERGE  NOTE:  Add  additional  variables  and  code  BELOW  this  line. 
/*  MERGE  NOTE:  Add  additional  variables  and  code  ABOVE  this  line. 
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/*  Show  panels  */ 

gui_3_Create_Panel  (NULL,  WPT_PRE FERRED) ; 

/*  MERGE  NOTE:  Add  additional  code  BELOW  this  line.  */ 
/*  MERGE  NOTE:  Add  additional  code  ABOVE  this  line.  */ 
> 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


Automatic  TAE-style  indenting  for  Emacs 


***  Local  Variables: 

***  mode:  c 

***  c-indent-level :  0 

***  c-continued-statement-of fset :  4 

***  c-brace-of fset :  4 

***  c-brace-imaginary-of fset :  4 

***  c-argdecl-indent :  4 

***  c-label-of fset :  -4 

***  c-continued-brace-of f set :  -4 

***  comment -column :  45 


users  */ 
*  ★  * 
★  *  * 
★  *  * 
★  *  * 
★  ★ 
★  +  *■ 

*  *  + 
•k  ★  ir 
*  +  * 


***  comment-multi-line: 


nil 


*  *  ★ 


***  End: 


*  ★  ★ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


93.  WARRIOR JNITJPAN.C 

/*  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.]  *** 
*/ 

/*  ***  piie;  warrior__init_pan .  c  ***  */ 

/*  ***  Generated:  Oct  15  11:20:08  1998  ***  */ 

/*  ***★****★**★***★***★★***★***★★★*  +  ★*  +  +  ★**  +  *■**★*★*■*****★*★**■*■★★*•*■★★★**★*★★ 

*  PURPOSE: 

*  Initialize  all  panels  in  the  resource  file. 

* 

*  REGENERATED: 

*  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

*  A  panel  is  deleted 

*  A  new  panel  is  added 

*  A  panel* s  name  is  changed  (not  title) 

*  For  the  panels: 

*  gui_3 

* 

*  CHANGE  LOG: 

*  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

*  15-Oct-98  Initially  generated. . .TAE 

*  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 

*  *★**+**★★*★*★★*★★★*★**★★****★+**★★*++★+*★**★★*★*****★*★★★*★*★★★**★+***** 

*/ 

#include  "taeconf . inp" 

#include  "wptinc . inp" 

#include  "symtab. inc" 

tinclude  "warrior_global . h"  /*  Application  globals  */ 

/*  One  "include"  for  each  panel  in  resource  file  */ 

#include  "warrior_pan_gui_3 . h" 

/*  MERGE  NOTE:  Add  additional  includes  and  functions  BELOW  this  line.  */ 

/*  MERGE  NOTE:  Add  additional  includes  and  functions  ABOVE  this  line.  */ 


FUNCTION  VOID  warrior__Initialize_All_Panels  ( resf ileSpec) 
TEXT  *resfileSpec; 

{ 

Id  vmCollection; 
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/*  merge  NOTE:  Add  additional  variables  and  code  BELOW  this  line.  */ 

/*  MERGE  NOTE:  Add  additional  variables  and  code  ABOVE  this  line.  */ 

/*  read  resource  file  */ 
vmCol lection  =  Co_New  (P_ABORT) ; 

Co_ReadFile  (vmCollection,  resfileSpec,  P_ABORT ) ; 

/*  initialize  view  and  target  Vm  objects  for  each  panel  */ 
gui_3_Initialize_Panel  (vmCollection) ; 

/*  MERGE  NOTE:  Add  additional  code  BELOW  this  line.  */ 

/*  MERGE  NOTE:  Add  additional  code  ABOVE  this  line.  */ 

} 


/*  Automatic  TAE-style  indenting  for  Emacs  users  */ 


-/* 

*  *  * 

Local  Variables: 

*  *  * 

*/ 

/* 

*** 

mode : 

c 

*  *  * 

*/ 

/* 

*  *  * 

c-indent-level : 

0 

*  *  * 

*/ 

/* 

*** 

c-continued-statement-of fset 

:  4 

*  ** 

*/ 

/* 

*  ** 

c-brace-off set : 

4 

*  *  * 

*/ 

/* 

*  *  ★ 

c-brace-imaginary-of f set : 

4 

*  *  * 

*/ 

/* 

*  *  * 

c-argdecl-indent : 

4 

*  ** 

*/ 

/* 

*  *  * 

c-label-of f set : 

-4 

*  *  * 

*/ 

/* 

★  ★  ★ 

c-continued-brace-of f set : 

-4 

*  *  * 

*/ 

/* 

*  *  * 

comment - co lumn : 

45 

★  *  * 

*/ 

/* 

comment -multi- line : 

nil 

*  *  * 

*/ 

/* 

*  ★ 

End: 

*  *  * 

*/ 

94. 

WARRIOR_PAN_GUI_3.C 

/* 

*  / 

★  ★  ★ 

TAE  Plus  Code  Generator  version  V5.3 

[Merge  Token:  DO  NOT  DELETE.]  *** 

/* 

*  *  * 

File:  pan_gui  3.c  *** 

*/ 

/* 

★  *  * 

Generated:  Nov  2  14:32:41 

1998  *** 

*/ 

/* 

************************************************************************ 

*  PURPOSE: 

*  This  file  encapsulates  the  TAE  Plus  panel:  gui_3 

*  These  routines  enable  panel  initialization,  creation,  and  destruction. 

*  Access  to  these  routines  from  other  files  is  enabled  by  inserting 

*  f#include  "pan_gui_3 . h" ’ .  For  more  advanced  manipulation  of  the  panel 

*  using  the  TAE  routines,  the  panel’s  Id,  Target,  and  View  are  provided. 

* 

*  NOTES: 

*  For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 

*  this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 

*  has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event" . 

*  Add  application-dependent  logic  to  each  event  handler.  (As  generated 

*  by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of  the 

*  event . ) 

* 

*  For  best  automatic  code  merging  results,  you  should  put  as  many 

*  modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 

*  Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 

*  must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 

*  automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 

*  will  contain  your  modifications. 

* 

*  REGENERATED: 

*  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

*  The  panel’s  name  is  changed  (not  title) 

*  For  panel:  gui_3 

* 
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*  The  following  WorkBench  operations  will  also  cause  regeneration: 

*  An  item  is  deleted 

*  A  new  item  is  added  to  this  panel 

*  An  item’s  name  is  changed  (not  title) 

*  An  item’s  data  type  is  changed 

*  An  item’s  generates  events  flag  is  changed 

*  An  item’s  valids  changed  (if  item  is  type  string  and  connected) 

*  An  item's  connection  information  is  changed 

*  For  the  panel  items: 

*  enter  new_plan,  get_re_30,  get_st_27,  get_user_in_21 , 

*  get__x,  get_y 

* 

*  CHANGE  LOG: 

*  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

*  2-Nov-98  Initially  generated. . .TAE 

*  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 

*  ***********************+**********+★*******+***+*****  **********  ********** 

*/ 


#include 

#include 

#include 

#include 


"taeconf . inp" 

’’wptinc .  inp" 
"warrior_global . h" 
"warrior_pan_gui_3 . h" 


/*  One  "include"  for  each  connected  panel  */ 


/*  Application  globals  */ 


/*  MERGE  NOTE:  Add  includes,  vars,  and  functions  BELOW  this  line.  */ 
/*  MERGE  NOTE:  Add  includes,  vars,  and  functions  ABOVE  this  line.  */ 


Id  gui_3Target,  gui_3View,  gui_3Id; 

/*  gui_3 Dispatch  is  defined  at  the  end  of  this  file  */ 

/*  ****************+******+*+*********+********+*+***+****★*********+***** 
*  Initialize  the  view  and  target  of  this  panel. 

*/ 

FUNCTION  VOID  gui_3_Initialize_Panel  (vmCollection) 

Id  vmCollection; 

{ 

gui_3View  =  Co_Find  (vmCollection,  "gui_3_v”); 
gui_3Target  =  Co_Find  (vmCollection,  "gui_3_t") ; 

} 


/*  ************★*************+********************************************* 
*  Create  the  panel  object  and  display  it  on  the  screen. 

*/ 

FUNCTION  VOID  gui_3_Create_Panel  ( relativeWindow,  flags) 

Window  relativeWindow; 

COUNT  flags; 

/*  merge  NOTE:  Add  code  BELOW  this  line  for  gui_3_Create_Panel .  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  gui__3_Create_Panel .  */ 


if  (gui_3Id) 

printf  ("Panel  (gui_3)  is  already  displayed. \n" )  ; 

else 

gui_3Id  =  Wpt_NewPanel  (Default ^Display,  gui_3Target,  gui_3View, 

relativeWindow,  gui_3Dispatch,  flags) ; 


} 


j ±  ************************************************************************ 

*  Erases  a  panel  from  the  screen  and  de-allocate  the  associated  panel 
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object . 


*/ 

FUNCTION  VOID  gui_3_Destroy_Panel  () 

{ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  gui_3_Destroy_Panel .  */ 
/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  gui_3__Destroy_Panel .  */ 


Wpt_PanelErase (gui_3Id) ; 
gui__3Id=0; 

} 


/*  ************************  *************************************  *********** 
*  Connect  to  this  panel.  Create  it  or  change  its  state. 

*/ 

FUNCTION  VOID  gui_3_Connect_Panel  (relativeWindow,  flags) 

Window  relativeWindow; 

COUNT  flags; 

{ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  gui__3__Connect_Panel .  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  gui_3_Connect_Panel .  */ 


if  (gui_3Id) 

Wpt_SetPanelState  (gui_3Id,  flags) ; 

else 

gui_3_Create_Panel  (relativeWindow,  flags); 

} 


/*  ************************************************************************ 
*  Handle  event  from  parameter:  enter_new_plan 
*/ 


EVENT__HANDLER  enter_new_planJEvent  (value,  count) 

TEXT  *value[];  /*  string  pointers  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  enter__new_plan  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  enter_new_plan .  */ 
/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  enter_new_plan.  */ 


set_new_plan ( ) ; 


/*# 

printf  ("Panel  gui_3,  parm  enter_new_plan:  value  =  %s\n" , 
count  >  0  ?  value[0]  :  "none"); 

#*/ 

}  /*  parm:  enter_new_plan  */ 


/  *  ************************************************************************ 
*  Handle  event  from  parameter:  get__re_30 
*/ 

EVENT_HANDLER  get_re_30_Event  (value,  count) 

TEXT  *value[];  /*  string  pointers  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  get_re__30  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  get_re_30.  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  get__re_30.  */ 

set_replay_request ( )  ; 


171 


/*# 

printf  ("Panel  gui_3,  parm  get_re_30:  value  =  %s\n", 
count  >  0  ?  value [0]  :  "none"); 

#*/ 

}  /*  parm:  get_re_30  */ 


/  *  ★★*+*★*★★★*★★★***★★**+★★★★★*★*★*+★★+**★+**★*★*★+★★++**★***★*★**★★*★★★★** 
*  Handle  event  from  parameter:  get__st_27 
*/ 

EVENT_HANDLER  get__st_27_Event  (value,  count) 

TEXT  *value[];  /*  string  pointers  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  get_st_27  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  get_st_27.  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  get_st_27.  */ 

set_statistics__request  ( )  ; 


/*# 

printf  ("Panel  gui_3,  parm  get_st_27:  value  =  %s\n", 
count  >  0  ?  value [0]  :  "none"); 

#*/ 

}  /*  parm:  get_st_27  */ 


/*  ★★*1lr*************  +  *****1(r*******1|r*1|r*^***:*.******  +  **.1ir*********  +  ***  +  +  **llr  +  *** 

*  Handle  event  from  parameter:  get_user_in_21 
*/ 

EVENT_HANDLER  get_user_in_21_Event  (value,  count) 

TEXT  *value[];  /*  string  pointers  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  get_user_in_2 1  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  get_user_in_21 .  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  get_user_in_2 1 .  */ 

set  user  interaction (); 


/*# 

printf  ("Panel  gui_3,  parm  get_user_in_21 :  value  =  %s\n", 
count  >  0  ?  value[0]  :  "none") ; 

#*/ 

}  /*  parm:  get_user_in_21  */ 


/*  +***********★***********+**+*****++*******+***********+***********++**** 
*  Handle  event  from  parameter:  get_x 
*/ 

EVENT_HANDLER  get__x_Event  (value,  count) 

TAEFLOAT  value [] ;  /*  real  vector  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  get_x  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  get_x.  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  get_x.  */ 

set_x ( (double) value [0] ) ; 

/*# 

printf  ("Panel  gui_3,  parm  get_x:  value  =  %f\n", 
count  >  0  ?  value [0]  :  0) ; 

#*/ 

}  /*  parm:  get_x  */ 
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J *  ************************************************************************ 

*  Handle  event  from  parameter:  get_y 
*/ 

EVENT_HANDLER  get_y_Event  (value,  count) 

TAEFLOAT  valued;  /*  real  vector  */ 

FUNINT  count;  /*  num  of  values  */ 

{  /*  parm:  get_y  */ 

/*  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  get_y.  */ 

/*  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  get_y.  */ 

set_y ( (double) value [ 0 ] ) ; 


/*# 

printf 

#*/ 

} 


("Panel  gui_3,  parm  get_y:  value  «  %f\n", 
count  >  0  ?  value [0]  :  0)  ; 


/*  parm:  get_y  */ 


struct  DISPATCH  gui_3Dispatch [ ]  =  { 

{ "enter_new_plan" ,  enter_new_plan_Event } , 

{ " get_re_3  0 " ,  get_r e_3  0_Event } , 

{ "get_st_27 " ,  get_st_27_Event } , 

{ "get_user_in_21",  get_user_in_21_Event } , 

{ " ge  t_x " ,  get_x_Even t } , 

{ "get_y" ,  get_y_Event } , 

(NULL,  NULL}  /*  terminator  entry  */ 

}; 


/*  MERGE  NOTE:  Add  additional  functions  BELOW  this  line.  */ 

/*#  MTS  10-15-98 

added  the  following  routines  to  display  info  to  gui 

#*/ 

FUNCTION  VOID  display_fuel_consumption (c) 
double  c; 

{ 

Wpt_SetReal (gui_3Id,  "display_st_31",  (TAEFLOAT) c) ; 

} 

FUNCTION  VOID  display_xloc (x) 
double  x; 

{ 

Wpt_SetReal (gui_3Id,  "xloc",  (TAEFLOAT ) x) ; 

} 

FUNCTION  VOID  display_yloc (y) 
double  y; 

{ 

Wpt_SetReal (gui_3Id,  "yloc",  (TAEFLOAT) y) ; 

} 

FUNCTION  VOID  displayjmover (x,  y) 
double  x,  y; 

{ 

TAEFLOAT  value [2]; 
value [0]  =  (TAEFLOAT) x; 
value [1]  =  (TAEFLOAT) y; 

Vm_SetReal  (gui_3Target ,  "display_re_37",  2,  value,  PJJPDATE) ; 
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} 


Wpt_ParmUpdate  (gui_3ld,  "display_re_37 " ) ; 


FUNCTION  VOID  end_simulation ( ) 

{ 

Wpt_PanelErase (gui_3Id) ; 
Wpt_Finish ( )  ; 
SET_APPLICATION_DONE; 

} 


/*  MERGE  NOTE:  Add  additional  functions  ABOVE  this  line.  */ 


/*  Automatic  TAE-style  indenting  for  Emacs  users  */ 


/* 

*  *  * 

Local  Variables: 

*  *  * 

*/ 

/* 

*  *  + 

mode : 

c 

*  *  * 

*/ 

/* 

★  ie  •k 

c-indent-level : 

0 

*/ 

/* 

**  * 

c-continued-statement-of f set : 

4 

*  *  * 

*/ 

/* 

★  *  * 

c-brace-of fset : 

4 

*  *  * 

*/ 

/* 

*  ** 

c-brace -imaginary-off set : 

4 

*  *  * 

*/ 

/* 

★  *  * 

c-argdecl-indent : 

4 

★  *  * 

*/ 

/* 

*  *  + 

c-label-of fset : 

-4 

*  *  * 

*/ 

/* 

*  *  * 

c-continued-brace-of f set : 

-4 

*  *  * 

*/ 

/* 

★  ★  ★ 

comment- column : 

45 

*  *  ★ 

*/ 

/* 

*  *  * 

comment-multi-line : 

nil 

★  * 

V 

/* 

*  *  * 

End: 

+  *  * 

*/ 

95.  warrior_tae.c 

/*  ***  plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.]  *** 

*/ 

/*  ***  File:  warrior. c  ***  */ 

/*  ***  Generated:  Oct  15  11:20:08  1998  ***  */ 

/  *  ★*****★*****★*+*+*★+***+*★*★**+**+**★**★**+**+*****★**★★*★★*+*+**++***** 

*  PURPOSE: 

*  This  the  main  program  of  an  application  generated  by  the  TAE  Plus  Code 

*  Generator. 

* 

*  REGENERATED: 

*  This  file  is  generated  only  once.  Therefore,  you  may  modify  it  without 

*  impacting  automatic  code  merge. 

* 

*  NOTES: 

*  To  turn  this  into  a  real  application,  do  the  following: 

* 

*  1.  Each  panel  that  has  event  generating  parameters  is  encapsulated  by 

*  a  separate  file,  named  by  concatenating  the  string  "pan_H  with  the 

*  panel  name  (followed  by  a  ".c").  Each  parameter  that  you  have  defined 

*  to  be  "event-generating",  has  an  event  handler  procedure  in  the 

*  appropriate  panel  file.  Each  handler  has  a  name  that  is  a 

*  concatenation  of  the  parameter  name  and  the  string  "_Event".  Add 

*  application-dependent  logic  to  each  event  handler.  (As  generated  by 

*  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of  the 

*  event . ) 

* 

*  2.  To  build  the  program,  type  "make".  If  the  symbols  TAEINC,  ..., 

*  are  not  defined,  the  TAE  shell  (source)  scripts  $TA£/bin/csh/taesetup 

*  will  define  them. 
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* 

*  ADDITIONAL  NOTES: 

*  1.  Each  event  handler  has  two  arguments:  (a)  the  value  vector 

*  associated  with  the  parameter  and  (b)  the  number  of  components.  Note 

*  that  for  scalar  values,  we  pass  the  value  as  if  it  were  a  vector  with 

*  count  1 . 

* 

*  Though  it’s  unlikely  that  you  are  interested  in  the  value  of  a  button 

*  event  parameter,  the  values  are  always  passed  to  the  event  handler  for 

*  consistency. 

* 

*  2.  You  gain  access  to  non-event  parameters  by  calling  the  Vm  package 

*  using  the  targetld  Vm  objects  that  are  created  in 

*  Initialize_All_Panels .  There  are  macros  defined  in  global. h  to  assist 

*  in  accessing  values  in  Vm  objects. 

* 

*  To  access  panel  Id,  target,  and  view,  of  other  panels,  add  an 

*  "# include"  statement  for  each  appropriate  panel  header  file. 

* 

*  CHANGE  LOG: 

*  15-Oct-98  Initially  generated. .. TAE 

*  ***************+*********■***************************+******************* 

*/ 


#include 
#include 
#include 
#include 
# include 
*/ 


"taeconf . inp" 

"wptinc . inp" 

"symtab. inc" 
"warrior_global . h" 
"warrior_pan__gui__3 .  h" 


/*  Application  globals  */ 
/*  Application  globals 


/*  Globally  defined  variables  */ 

Display  *Default_Display ; 

WptEvent  wptEvent;  /*  event  structure  returned  by  Wpt_NextEvent  */ 

BOOL  Application_Done; 

/*#  MTS  10-15-98 

replace  main  routine  by  initialize_gui  and  gene rated_tae_eventjnoni tor 

main  (argc,  argv) 

FUNINT  argc; 

TEXT  *argv [ ] ; 


{ 

#*/ 

CODE  eventType ; 

COUNT  termLines,  termCols; 

CODE  termType ; 


/*  PROGRAMMER  NOTE: 

*  add  similar  extern* s  for  each  resource  file  in  this  application 
*/ 


extern  VOID  warrior_Initialize_All_Panels  (); 
extern  VOID  warrior  Create  Initial  Panels  (); 
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struct  DISPATCH 
struct  VARIABLE 


dp; 

parmv; 


/*  working  dispatch  pointer  */ 
/*  pointer  to  event  VARIABLE  */ 


/*#  MTS  10-15-98 

add  the  statement  void  initialize_gui ( ) 

#*/ 

void  initialize_gui ( ) 

{ 

/*  initialize  terminal  without  clearing  screen  */ 
t_pinit  (StermLines,  StermCols,  &termType) ; 

/*  permit  upper/lowercase  file  names  */ 
f_force_lower  (FALSE) ; 

Default_Display  =  Wpt_Init  (NULL) ; 

/*  PROGRAMMER  NOTE: 

*  To  enable  scripting,  uncomment  the  following  line.  See  the 

*  taerecord  man  page. 

*/ 

/*  Wpt_ScriptInit  ("warrior");  */ 

/*  initialize  resource  file  */ 

/*  PROGRAMMER  NOTE: 

*  For  each  resource  file  in  this  application,  calls  to  the  appropriate 

*  Initialize_All__Panels  and  Create_Initial_Panels  must  be  added. 

*/ 

warrior_Initialize_All_Panels  ( "warrior . res" ) ; 
warrior_Create_Initial_Panels  ( ) 

/*#  MTS  10-15-98 

add  the  following  initialization  here 

#*/ 

Application_Done  =  FALSE; 

} 


/*#  MTS  10-15-98 

commented  out  the  loop  and 

add  the  statment  generated_tae_event_monitor ( ) 


/#*  main  event  loop  *#/ 

/#*  PROGRAMMER  NOTE: 

#*  use  SET_APPLICATION_DONE  in  "quit"  event  handler  to  exit  loop. 
#*  ( SET_APPLICATION_DONE  is  defined  in  global. h) 

*#/ 

while  (  !  Application__Done) 


void  generated_tae__event_monitor  { ) 

{ 

if  (Wpt_Pending ( ) ) 

{ 

eventType  =  Wpt_NextEvent  (&wptEvent) ;  /*  get  next  WPT  event  */ 

switch  (eventType) 

{ 

case  WPT  PARM  EVENT: 
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/*  Event  has  occurred  from  a  Panel  Parm.  Lookup  the  event 

*  in  the  dispatch  table  and  call  the  associated  event 

*  handler  function. 

*/ 


dp  =  (struct  DISPATCH  *)  wptEvent . p_userContext ; 
for  (;  (*dp) .parmName  !=  NULL;  dp++) 

if  (s_equal  ( (*dp) .parmName,  wptEvent .parmName) ) 

{ 

parmv  =  Vm__Find  (wptEvent . p_dataVm,  wptEvent .parmName) ; 

(* (*dp) . eventFunction) 

( (*parmv) ,v_cvp,  (*parmv) ,v_count) ; 
break; 

} 

break; 

case  WPT_FILE_EVENT : 

/*  PROGRAMMER  NOTE: 

*  Add  code  here  to  handle  file  events. 

*  Use  Wpt_AddEvent  and  Wpt_RemoveEvent  to  register  and  remove 

*  event  sources . 

*/ 

print f  ("No  E VENT_HAN DLER  for  event  from  external  source . \n" ) ; 
break; 

case  WPT_WINDOW_EVENT: 

/*  PROGRAMMER  NOTE: 

*  Add  code  here  to  handle  window  events . 

*  WPT_WINDOW_EVENT  can  be  caused  by  windows  which  you  directly 

*  create  with  X  (not  TAE  panels),  or  by  user  acknowledgement 

*  of  a  Wpt_PanelMessage  (therefore  no  default  print  statement 

*  is  generated  here) . 

*/ 

break; 

case  WPT_TIMEOUT_EVENT: 

/*  PROGRAMMER  NOTE: 

*  Add  code  here  to  handle  timeout  events. 

*  Timeout  events  occur  when  an  application  has  not  received  any 

*  user  input  within  the  interval  specified  by  Wpt_SetTimeOut . 

*/ 

print f  ("No  EVENT_HANDLER  for  timeout  event. \n" ); 
break; 

case  WPTJTIMER_EVENT: 

/*  PROGRAMMER  NOTE: 

*  Add  code  here  to  handle  timer  events. 

*  Timer  events  occur  on  (or  after)  the  interval  specified  when  the 

*  event  is  registered  using  Wpt_AddTimer .  Use  Wpt_RemoveTimer  to 

*  remove  timers . 

*/ 

print f  ("No  EVENT_HANDLER  for  event  from  timer  source . \n") ; 
break; 

default : 

printf ( "Unknown  WPT  Event\n") ; 
break; 

} 
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} 

else  if  (Application_Done) 

{ 


Wpt_Finish { ) ;  /*  close  down  all  display  connections  */ 


} 


}  /*  end  main  */ 


/*  Automatic  TAE-style  indenting  for  Emacs  users  */ 

/*  ***  Local  Variables:  ***  */ 
/*  ***  mode:  c  ***  */ 
/*  ***  c-indent-level :  0  ***  */ 
/*  ***  c-continued-statement-of fset :  4  ***  */ 
/*  ***  c-brace-of f set :  4  ***  */ 
/*  ***  c-brace-imaginary-of fset :  4  ***  */ 
/*  ***  c-argdecl-indent :  4  ***  */ 
/*  ***  c-label-offset :  -4  ***  */ 
/*  ***  c-continued-brace-of f set :  -4  ***  */ 
/*  ***  comment-column:  45  ***  */ 
/*  ***  comment-multi-line:  nil  ***  */ 
/*  ***  End:  ***  */ 


178 


LIST  OF  REFERENCES 


1.  Reengineering  Center,  Perspectives  on  Legacy  Systems  Reengineering,  pp.  3-5, 
Software  Engineering  Institute,  1995. 

2.  Steigerwald,  R,  Luqi,  and  McDowell,  J,  CASE  Tool  for  Reusable  Software  Component 
Storage  and  Retrieval  in  Rapid  Prototyping,  Computer  Science  Dept.,  Naval 
Postgraduate  School,  Monterey,  California. 

3.  Memorandum  from  Under  Secretary  of  Defense,  For  Secretary  of  the  Army, 
SUBJECT:  DoD  High  Level  Architecture  (HLA)  for  Simulations,  10  September  1996. 

4.  Memorandum  from  Under  Secretary  of  Defense,  For  Chairman  DOD  Executive 
Council  for  Modeling  and  Simulation,  SUBJECT:  DoD  Transition  to  the  High  Level 
Architecture  (HLA)  for  Simulations,  7  April  1998. 

5.  McGinnis,  M.,  Pearman,  G.,  Jackson,  and  L.,  Murphy,  W.,  Development  of  a  PC- 
based,  HLA  Compliant,  High-resolution,  Constructive  Combat  Simulation,  April  1998. 

6.  E-mail  from  Gerry  Frazier,  Senior  Military  Analysts,  Modeling  and  Simulation 
Operations  Support  Activity,  SUBJECT:  Constructive  Simulation  Models,  5  November 
1998. 

7.  Titan,  Inc.  Applications  Group,  Janus  3.X/UNUC  Software  Design  Manual,  Prepared 
for:  Headquarters  TRADOC  Analysis  Center,  Ft.  Leavenworth,  Kansas,  November 
1993. 

8.  Titan,  Inc.  Applications  Group,  Janus  3.XJUN1X  Software  Programmer’s  Manual. 
Prepared  for:  Headquarters  TRADOC  Analysis  Center,  Ft.  Leavenworth,  Kansas 
November  1993. 

9.  Titan,  Inc.  Applications  Group,  Software  Simulation  Support  Group,  The  Janus  User’s 
Manual  Version  3,  pp.  1-15,  February  1990. 

10.  Arnold,  R.  S.  Software  Reengineering.  IEEE  Computer  Society  Press,  1993. 

11.  Feiler,  Peter,  Reengineering:  An  Engineering  Problem, 'pp.  97-105,  Component-Based 
Software  Engineering,  1990. 

12.  Luqi  and  Ketabchi,  M.,  A  Computer-Aided  Prototyping  System,  5(2),  pp.66-72,  IEEE 
Software,  1988. 

13.  Luqi,  System  Engineering  and  Computer-Aided  Prototyping,  6(1),  pp.  15-17,  Journal  of 
Systems  Integration  -  Special  Issue  on  Computer  Aided  Prototyping,  1996. 


179 


14.  Austin,  Toni,  Idaho  National  Engineering  Laboratory  Software  Reengineering  Fact 
Sheets,  [http://www.inel.gov/technology_transfer/fact-htm/fact221.html].  July  1996. 

15.  Kiebak,  A.,  Lichter,  H.,  Schneider-Hufshchmidt,  M.,  and  Heinz,  Z.,  Prototyping  in 
Industrial  Software  Projects,  undated. 

16.  Luqi,  A  Graph  Model  for  Software  Evolution,  IEEE  Trans.  On  Software  Engineering, 
16,  p.  917-927,8  August  1990. 

17.  CAPS  User  Interface  Manual  (Section  2)  from 
http:/ Avwwcaps.cs.nps.navv.mil/Manuals/Uscr  Interface/ scction2.html 

18.  Luqi,  Steigerwald,  R.,  Hughes  G.,  Naveda  F.,  and  Berzins  V.,  CASP  as  a  Requirements 
Engineering  Tool,  Proc.  1991  Tri-Ada  Conference. 

19.  Berzins,  V.,  Shultes,  B.,  Williams,  J.,  Saluto,  M.,  Janus  Re-engineering  Status  Brief 
Computer  Science  Dept.,  Naval  Postgraduate  School,  October  1998. 


180 


BIBLIOGRAPHY 


Arnold,  R.  S.  Software  Reengineering.  IEEE  Computer  Society  Press,  1993. 

Austin,  Toni,  Idaho  National  Engineering  Laboratory  Software  Reengineering  Fact  Sheets. 
[http://www.inel.gov/technology_transfer/fact-htm/fact221  .html],  July  1 996. 

Berzins,  V.,  Shultes,  B.,  Williams,  J.,  Saluto,  M.,  Janus  Re-engineering  Status  Brief 
Computer  Science  Dept.,  Naval  Postgraduate  School,  October  1998. 

CAPS  User  Interface  Manual  (Section  2)  from 

http://wwwcans.cs.nps.navv.mil/Manuals/User  Interface/section2.html 

Chikofsky,  E.J.  &  Cross  II,  J.H.,  Reverse  Engineering  and  Design  Recovery:  A  Taxonomy, 
IEEE  Software,  January  1990. 

Douglas,  Bruce,  P.,  Real-Time  UML:  Developing  Efficient  Objects  for  Embedded  Systems, 
pp.  203-218,  Addison  Wesley  Longman,  Inc.,  1998. 

E-mail  from  Gerry  Frazier,  Senior  Military  Analysts,  Modeling  and  Simulation  Operations 
Support  Activity,  SUBJECT:  Constructive  Simulation  Models,  5  November  1998. 

Feiler,  Peter,  Reengineering:  An  Engineering  Problem,  pp.  97-105,  Component-Based 
Software  Engineering,  1990. 

Kiebak,  A.,  Lichter,  H.,  Schneider-Hufshchmidt,  M.,  and  Heinz,  Z.,  Prototyping  in 
Industrial  Software  Projects,  undated. 

Larman,  Craig,  Applying  UML  and  Patterns:  An  Introduction  to  Object-Oriented  Analysis 
and  Design,  pp. 273-279,  Prentice-Hall  PTR,  1998. 

L.R.  Larimer,  Building  an  Object  Model  of  a  Legacy  Simulation,  MS  Thesis,  NPS,  June 
1997. 

Luqi,  A  Graph  Model  for  Software  Evolution,  IEEE  Trans.  On  Software  Engineering,  16,  p. 
917-927,  8  August  1990. 

Luqi,  Steigerwald,  R.,  Hughes  G.,  Naveda  F.,  and  Berzins  V.,  CASP  as  a  Requirements 
Engineering  Tool,  Proc.  1991  Tri- Ada  Conference. 

Luqi,  System  Engineering  and  Computer-Aided  Prototyping,  6(1),  pp.  15-17,  Journal  of 
Systems  Integration  -  Special  Issue  on  Computer  Aided  Prototyping,  1996. 

Luqi  and  Ketabchi,  M.,  A  Computer-Aided  Prototyping  System,  5(2),  pp.66-72,  IEEE 
Software,  1988. 


181 


Memorandum  from  Under  Secretary  of  Defense,  For  Chairman  DoD  Executive  Council  for 
Modeling  and  Simulation,  SUBJECT:  DoD  Transition  to  the  High  Level  Architecture 
(HLA)  for  Simulations,  7  April  1998. 

Memorandum  from  Under  Secretary  of  Defense,  For  Secretary  of  the  Army,  SUBJECT: 
DoD  High  Level  Architecture  (HLA)  for  Simulations,  10  September  1996. 

McGinnis,  M.,  Pearman,  G.,  Jackson,  and  L.,  Murphy,  W.,  Development  of  a  PC-based, 
HLA  Compliant,  High-resolution,  Constructive  Combat  Simulation,  April  1998. 

Pimper,  J.  and  Dobbs,  L.,  Janus  Algorithm  Document,  Version  4.0,  Lawrence  Livermore 
National  Laboratory,  California,  1988. 

Reengineering  Center,  Perspectives  on  Legacy  Systems  Reengineering,  pp.  3-5,  Software 
Engineering  Institute,  1995. 

Steigerwald,  R,  Luqi,  and  McDowell,  J,  CASE  Tool  for  Reusable  Software  Component 
Storage  and  Retrieval  in  Rapid  Prototyping,  Computer  Science  Dept.,  Naval  Postgraduate 
School,  Monterey,  California. 

Titan,  Inc.  Applications  Group,  Janus  3.X/UNLX  Software  Design  Manual,  Prepared  for: 
Headquarters  TRADOC  Analysis  Center,  Ft.  Leavenworth,  Kansas,  November  1993. 

Titan,  Inc.  Applications  Group,  Janus  3.X/UNDC  Software  Programmer’s  Manual. 
Prepared  for:  Headquarters  TRADOC  Analysis  Center,  Ft.  Leavenworth,  Kansas. 
November  1993. 

Titan,  Inc.  Applications  Group,  Janus  Version  6  Data  Base  Manager’s  Manual, 
Simulation,  Training  &  Instrumentation  Command,  Orlando,  Florida,  1995. 

Titan,  Inc.  Applications  Group,  Software  Simulation  Support  Group,  The  Janus  User’s 
Manual  Version  3,  pp.  1-15,  February  1990. 


182 


INITIAL  DISTRIBUTION  LIST 


1 .  Defense  Technical  Information  Center . 2 

8725  John  J.  Kingman  Rd.,  STE  0944 

Ft.  Belvoir,  Virginia  22060-6218 

2.  Dudley  Knox  Library . 2 

Naval  Postgraduate  School 

41 1  Dyer  Road 

Monterey,  California  93943-5101 

3.  Chairman,  Code  CS . 1 

Naval  Postgraduate  School 

Monterey,  California  93943-5100 

4.  Dr.  Man-Tak  Shing,  Code  CS/SH . 1 

Computer  Science  Department 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

5.  Dr.  Valdis  Berzins,  Code  CS/BE . 1 

Computer  Science  Department 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

6.  U.  S  Army  Research  Office . 1 

ATTN:  Dr.  David  Hislop  (AMXRO-MCS) 

4300  S.  Miami  Boulevard 
P.O.  Box  12211 

Research  Triangle  Park,  North  Carolina  27709-221 1 

7.  TRADOC  Analysis  Center-Monterey . 1 

Naval  Postgraduate  School 

P.O.  Box  8692 

Monterey,  California  93943-0692 

8.  Director . 1 

U.S.  Army  TRADOC  Analysis  Center 

ATTN:  ATRC 

Ft.  Leavenworth,  Kansas  66027-5200 

9.  Director . 1 

U.S.  Army  TRADOC  Analysis  Center- WSMR 

ATTN:  Dr.  Mel  Parrish 

White  Sands  Missile  Range,  New  Mexico  88002-5502 


183 


10.  MAJ  Julian  R.  Williams,  Jr . 2 

8432  17th  Street  North 

St.  Petersburg,  Florida  33702 

11.  CPT  Michael  J.  Saluto . 2 

159  Baker  Street 

East  Peoria,  Illinois  61611 


184 


